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THE INFORMATION CONTAINED IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1974, 1978 BY DIGITAL EQUIPMENT CORPORATION 
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1. ABSTRACT 


THE RPO4/5/6 FORMATTER PROGRAM FORMATS THE DISK PACK AND PERFORMS 
A CURSORY CHECK OF THE PACK'S SURFACE. THE PROGRAM ALLOWS THE 
OPERATOR TO SPECIFY ADDRESS LIMITS, PATTERNS, AND EITHER 16 BIT OR 
18 BIT FORMAT MODE. THE PROGRAM VERIFIES EACH TRACK WRITTEN 

AS WELL AS VERIFYING THE FORMAT OPERATION. 


REQUIREMENTS 


EQUIPMENT 


PDP=-11 PROCESSOR 
8K MEMORY 

TELETYPE 

PROGRAM LOAD DEVICE 

KW11-L OR KW11-P CLOCK 

RH11 OR RH70 WITH 1 - 8 RPO4, RPOS, RPO6 DISK DRIVES 


PRELIMINARY PROGRAMS 

RP04/5/6 DISKLESS CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJG) 
PART 2 (MAINDEC-11-DZRJH) 

RPO4/5/6 FUNCTIONAL CONTROLLER TEST 
PART 1 


(MAINDEC-11-DZRJ1) 
PART 2 (MAINDEC-11-DZRJJ) 


LOADING PROCEDURES 


THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 

LOADER OR IT MAY BE LOADED FROM THE APPROPRIATE ‘XXDP* MEDIA 

USING THE ASSOCIATED LOADER. THE PROGRAM MAY NOT BE INCLUDED 
IN AN 'XXDP* CHAIN. 


STARTING PROCEDURES 
STARTING ADDRESSES 


THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS OF THE 
RH11 OR RH70 WILL NOT BE CHANGED 
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THE PROGRAM IS_STARTED FROM LOCATION 204(8) IF THE ADDRESS OF 

THE RH11_ OR RH70 IS TO BE CHANGED FROM THE PRELOADED VALUE. 

(SEE SECTION 4.3) 

OPERATION ACTION 

1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 

2. LOAD THE STARTING ADDRESS - 200(8) OR 204(8). 

3. SET THE SWITCHES AS REQUIRED AND PRESS "START. 
IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES 
ON THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. THIS TYPEOUT 
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SwW<02>. 
THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 

"PROGRAM MODE (C OR F):' 

ENTER THE APPROPRIATE CODE: "C’ FOR ‘CHECK’ OPERATION OR ‘F° 
FOR "FORMAT & VERIFY’. IF A ‘CARRIAGE RETURN’ IS ENTERED IN 
eaarere TO THE REQUEST, THE PROGRAM WILL ASSUME ‘FORMAT & 
THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 


"OPERATE IN 22 SECTOR (16 BIT) MODE (Y OR N)* 


ENTER THE APPROPRIATE CHARACTER: ‘Y' FOR 16 BIT MODE OR ‘N' FOR 
18 BIT MODE. IF A ‘CARRIAGE RETURN’ IS ENTERED IN RESPONSE TO 
THIS REQUEST, THE PROGRAM WILL ASSUME 16 BIT MODE. 


THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: ° 


ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. A ‘PERIOD’ OR 
"CARRIAGE RETURN’ ENTRY WILL SELECT DRIVE 0. IF THE DRIVE SELECTED 
IS NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND 
RETURN TO THE DRIVE ADDRESS REQUEST. 


AFTER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK 
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 


"ENTER ADDRESS LIMITS: ° 


THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR eB: CYLINDER 
AND TRACK AND FOR ENDING CYLINDER AND TRACK WILL BE TYPED OUT. 

If A ‘CARRIAGE RETURN’ IS TYPED AS A RESPONSE, THE PRESENT VALUE 
WILL BE USED; IF A 'PERIOD' IS TYPED, THE PROGRAM WILL BYPASS 
THE REMAINING ENTRIES AND WILL USE THEIR PRESENT VALUES. 

THAT THE CYLINDER AND TRACK VALUES ARE DEC IMAL _ NUMBERS. 
THE ADDRESS SPECIFIED BY THE BEGINNING CYLINDER AND TRACK MUST 
Ey Aa ADDRESS SPECIFIED BY THE ENDING CYLINDER AND 


eee ek ed ed od nd ed od od 
BLSSELRALATALSIBaNS 
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THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN: 


"SELECT DATA PATTERN 
(0) ZERO'S 
(1) ONES 
(2) WORST CASE:' 


ENTER THE CODE FOR THE REQUIRED PATTERN. ‘CARRIAGE RETURN’ OR 
sat aeee. ENTRIES WILL CAUSE THE PROGRAM TO USE THE "WORST CASE‘ 


THE "WORST CASE’ PATTERN IS THE FOLLOWING OCTAL SEQUENCE REPEATED 
THROUGH THE DATA AREA OF THE SECTOR: 


165555 
133333 


THE PROGRAM WILL THEN TYPE: 

"STARTING FORMAT ON DRIVE N' 
OR 

"STARTING CHECK ON DRIVE N° 
THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT 
OR CHECK OPERATION BY TYPING A ‘CONTROL C*. THE PROGRAM WILL 
TYPE THE FOLLOWING MESSAGE: 

"PRESENT ADDRESS IS: CXXX TXX* 
IF A ‘CONTROL C* IS TYPED WHILE THE PROGRAM IS TYPING THE CURRENT 
ADDRESS, THE PROGRAM WILL ABORT THE FORMAT (OR CHECK) OPERATION 
AND RETURN TO THE ‘DRIVE* REQUEST. 
IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FORMAT 
OR CHECK OPERATION HAS COMPLETED, THE PROGRAM WILL NOT ALTER THE 
ADDRESS LIMITS SPECIFIED AT THE START OF THE PREVIOUS OPERATION. 
IF THE FORMAT OR CHECK OPERATION iS TERMINATED BY A ‘CONTROL C° OR 
IF A DIFFERENT DRIVE IS SELECTED, THE PROGRAM WILL RESET THE 
ADDRESS LIMITS TO THE VALUES APPROPRIATE FOR THE DRIVE TYPE. 


11. TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE, THE 
PROGRAM MUST BE STARTED FROM LOCATION 200(8) OR 204(8) AGAIN. 


RH11 - RH70 UNIBUS ADDRESS 
THE PROGRAM ASSUMES THAT THE RH11 OR RH70 wt to START AT 


BE STARTED FROM 204(8) INITIALLY AS_THE PROGRAM G THE 
ADDRESS CHANGE ROUTINE AT INITIAL START ONLY. ENTER THE RH11 RH70 
ADDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM. 
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4.4 


OTHER UNIBUS ADDRESSES 
LOC CONTENTS FUNCTION 


TTY KEYBOARD STATUS REGISTER 
TTY KEYBOARD BUFFER REGISTER 
TTY PRINTER STATUS REGISTER 
TTY PRINTER BUFFER REGISTER 
KW11-P CONTROL REGISTER 
KW11-P COUNTER REGISTER 
KW11-P VECTOR ADDRESS 

KW11-L CONTROL REGISTER 
ADDRESS OF KW11=-L VECTOR 


3 
NMONMONoN a ae 
esusensské 
SOANOANOAS 


SW<15>=1...HALT ON ERROR 

--- INHIBIT ERROR TYPEOUTS 

---BELL ON ERROR 

---LOOP ON ERROR 

---PRINT SOFT ERROR REPORTS AS THEY OCCUR 

---DON'T DISPLAY SYSTEM STATUS AFTER INITIAL START 
SW<01>=1...LOOP ON THE CURRENT TRACK 

SW<00>=1...LOOP THE PROGRAM ON THE SELECTED DRIVE 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. 4N 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE* SWITCH REGISTER. THE 

A. Ae eS "ent ronne IS LOCATED AT LOCATION 176 (8). THE 


G*. THE PROGRAM WILL 
Y TIME EXCEPT WHEN THE PROGRAM 
IS AT A HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT. THE 
"SOF TWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT’ AND 
"CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH —'t SWITCH vy phn THE *SOFTWARE’ SWITCH 
BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
[SOF TWARE* REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
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ERROR MESSAGES 


*RH11 INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


"UNEXPECTED ATTENTION OCCURRED’ = THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


"MASSBUS PARITY ERROR (MCPE=1)° - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH11 WHEN THE INDICATED REGISTER WAS READ. 


"MASSBUS PARITY ERROR (PAR=1)° = A CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 


"ADDRESS PLUG CHANGE BIT SET’ = THE PROGRAM FOUND THE ‘OPE’ 
BIT SET FOR THE INDICATED DRIVE. 


*RH11 DIDN'T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


"DRIVE OFFLINE’ = THE INDICATED DRIVE HAS GONE OFFLINE 


"PERSISTENT DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING ‘DRIVE 
CLEAR’ INSTRUCTIONS. 


*"UNCORRECTABLE MASSBUS PARITY ERROR - THE PROGRAM ATTEMPTED 
TO PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSBUS PARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A ‘PAR* ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


"SOFTWARE TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 

"DRIVE UNSAFE ERROR* - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


*CONTROLLER/DRIVE ERROR DURING WRITE’ - THE INDICATED NON-DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 


*CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ - A NON-DATA ERROR 
OCCURRED DURING THE WRITE CHECK. 


"DATA ERROR DURING WRITE CHECK’ - A DATA RELATED ERROR OCCURRED 
DURING A WRITE CHECK OPERATION. A DATA ERROR IS CONSIDERED 
TO BE A *DCK" ERROR. 


"RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE* - THE INDICATED 
SECTOR FAILED DURING RETRY FOLLOWING A DATA ERROR. 


*CONTROLLER/ORIVE ERROR VERIFYING we spens" ~- AN ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 


*"HCE' ERROR VERIFYING HEADERS' ~ A HEADER ERROR OCCURRED DURING 
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THE VERIFICATION PASS AFTER FORMATTING. 


"CYLINDER FIELD IN HEADER IS NOT CORRECT’ = THE CYLINDER FIELD 
FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 


"WRITE CHECK ERROR’ = THE RH17 REPORTED A WRITE CHECK ERROR AND 
NO DRIVE ERRORS WERE SET. 


"HARDWARE ERROR DURING WRITE CHECK’ = AN ERROR THAT WAS NEITHER 
A DATA ERROR, WRITE CHECK ERROR, NOR CONTROLLER ERROR OCCURRED 
DURING A WRITE CHECK. THESE ERRORS COULD BE ONE OF THE 
FOLLOWING: "OPI*, "DTE*, "HCRC’, ‘HCE’, OR ‘FER’. 


MISCELLANEOUS 


FORMAT TIME 


IT TAKES APPROXIMATELY 8 MINUTES TO FORMAT AN ENTIRE RPO4/5 PACK 
AND APPROXIMATELY 16 MINUTES TO FORMAT AN RPO6 PACK. THE ‘CHECK* 
a gL, Fie AN ENTIRE PACK IS 4 MINUTES FOR RPO4/5°S AND 8 MINUTES 


HALTING THE PROGRAM 

THE OPERATOR SHOULD NOT HALT THE PROGRAM DURING A FORMAT OPERATION. 
HALTING THE PROGRAM MAY LEAVE A SECTOR INCORRECTLY FORMATTED. TO 
TERMINATE THE FORMAT, TYPE A_ ‘CONTROL C* AND WHILE THE PROGRAM IS 
TYPING THE ADDRESS, TYPE ANOTHER ‘CONTROL C‘; THIS SEQUENCE RETURNS 
THE PROGRAM TO THE DRIVE ADDRESS ENTRY ROUTINE. 

SURFACE VERIFICATION 

THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK 
PACK VERIFICATION. IF THE PROGRAM REPORTS A SECTOR AS BEING ‘NOT 


ACCEPTABLE’, THIS MAY IN FACT INDICATE A BAD SURFACE; HOWEVER, 
SECTORS WHICH "PASSED' MAY OR MAY NOT BE GOOD. 


PROGRAM DESCRIPTION 

FORMAT OPERATION 

THE PROGRAM FORMATS THE PACK ONE TRACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE DRIVE. 


THE FORMAT Nig oppor Hy y cab: HEADER AND DATA COMMAND FOR 


ROGRAM WI 
WRITE BEFORE CONTINUING. IF A DATA RELATED ERROR IS DETECTED 
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DURING THE WRITE CHECK (A DATA ERROR IS DEFINED AS ONE OF 

ING ERRORS: ‘DCK', ‘OPI’ TE", "MCRC*, “WCE’. 

- THE SECTOR IN ERROR WILL Be REWRITTEN. THE PROGRAM WILL 
CHECK tHe “SECTOR TWICE; IF A DATA ERROR IS DETECTED IN THE SECTOR 
DURING EITHER OF THE WRITE CHECKS, THE PROGRAM WILL DECLARE 
THE SECTOR AS BEING ‘UNACCEPTABLE’. FOLLOWING THIS SEQUENCE, 
THE REMAINDER OF THE TRACK IS CHECKED. IF DATA ERRORS ARE ENCOUNTERED 
IN ANY OF THE REMAINING SECTORS, EACH SECTOR WILL BE HANDLED AS 
DESCRIBED ABOVE. 


IF A NON-DATA hs ERROR OCCURS DURING THE WRITE CHECK, THE 
PROGRAM WILL RETRY THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 
TO THE NEXT TRACK. 


IT or .. NOTED THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY 
AND IS NOT DIRECTLY VERIFYING THE SURFACE OF THE PACK. ERRORS 
THAT ARE Bg ai ERED MAY BE 
BUT, AS THE PROGRAM IS 

OF THE DISK PACK SURFACE, ANNOT MAK 

IN GENERAL, HOWEVER, THE OPERATOR CAN ASSUME THAT SECTORS WHICH 
THE PROGRAM CALLS ‘UNACCEPTABLE’ INDICATE BAD AREAS OF THE PACK; 
UNFORTUNATELY, SECTORS WHICH ‘PASS’ CANNOT BE ASSUMED TO BE GOOD. 


DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN SELECTED BY — OPERATCR. THE KEYWORDS IN THE 
HEADER ARE ALWAYS SET TO ZERO 


CHECK OPERATION 


3 CHECK OPERATION IS IDENTICAL TO THE WRITE CHECK wo: OF 
THE FORMAT OPERATION OPERATION DESCRIBED IN SECTION 8.1 EXCEPT 
THAT THE PROGRAM WILL NOT RE-WRITE ERROR SECTORS. 


POSITIONER VERIFICATION 
AFTER THE PROGRAM COMPLETES THE FORMAT OPERATION, THE —— 
SR THE CYLINDER ADDRESS 
TO THE REQUESTED HT re! IF 
COMPARE, AN ERROR MESSAGE IS TYPED. 
THE PROGRAM CHECKS THE CYLINDER ADDRESS FIELD FROM THE HEADER 
OF SECTOR 0 ON THE BEGINNING TRACK OF EACH CYLINDER FORMATTED. 


THIS CHECK IS PERFORMED TO CONFIRM THAT THE DISK*S POSITIONER 
ADVANCED PROPERLY DURING THE FORMAT OPERATION. 


?. PROGRAM LISTING 


a 
-TITLE CZRJBCO, RPO4/5/6 FMTR 
:*COPYRIGHT (C) 1976,1978 
:*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


:* 
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: #PROGRAN BY C. HESS 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
3*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 
HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 
DON'T DISPLAY SYSTEM B ay AFTER INITIAL START 


LOOP ON THE CURRENT T 
LOOP THE PROGRAM ON THE SELECTED DRIVE 


. 
ed 


-SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
[*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
: *LOCATION a 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG:  . WORD 0 zsSOFTWARE DISPLAY REGISTER 


WREG: .WORD 0 3;SOFTWARE SWITCH REGISTER 
-SBTTL ACT11 HOOKS 
LRAT 
: HOOKS REQUIRED BY ACT11 
$SV :SAVE PC 
3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


+ 22)SET LOC. Pe TO 20000 
-=$SVPC 3; RESTORE P 


-SBTTL STARTING ADDRESS = 200 
jmp BEGIN1 :NORMAL STARTING ADDRESS 


-SBTTL STARTING ADDRESS TO CHANGE THE RH11 ADDRESS = 204 
JMP BEGIN ;CHANGE THE RH11 ADDRESS 


DAA DAA AGI 
— wo SS I SI DS SH SS 
SCOMNAOUSWN—O 


-SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 


-EQUIV’ EMT,ERROR ;:BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 


;*MISCELLANEOUS DEFINITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 
LF= 12 :;CODE FOR LINE FEED 
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529 000015 
530 000200 
531 177776 
532 
533 177774 
534 177772 
535 177570 
536 177570 
537 
538 
539 000000 
540 000001 
541 000002 
542 000003 
543 000004 
544 000005 
545 000006 
546 000007 
547 000006 
548 000007 
549 
550 
551 
552 
553 0001 
554 000140 
555 000200 
556 000240 
557 0003 
528 000340 
559 
560 
561 100000 
562 040000 
563 020000 
564 010000 
565 000 
566 002000 
567 001000 
568 000400 
569 000200 
570 000100 
571 000040 
572 000020 
573 000010 
574 000004 
575 000002 
576 000001 
577 
578 
579 
580 
581 
582 
583 
584 
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BASIC DEFINITIONS 


CR= 15 
CRLF= 200 
PS= 177776 


.EQUIV PS,PSW 
STKLMT= 177774 
PIRQ= 177772 


D 
DDISP= 177570 


SEQ 0011 


;;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
:sPROCESSOR STATUS WORD 


z:STACK LIMIT REGISTER 

: PROGRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 

3 HARDWARE DISPLAY REGISTER 


ee REGISTER ed ety: 


O= 3 REGISTER 
R1= 1 ze AL REGISTER 
R2= %2 ;;GENERAL REGISTER 
R3= 23 3;GENERAL REGISTER 
R4= 24 ;:GENERAL REGISTER 
R5= 25 7;GENERAL REGISTER 
R6= %6 2 >GENERAL REGISTER 
R7= x7 ;GENERAL REGISTER 
SP= %6 £3 STACK POINTER 
PC= %7 PROGRAM COUNTER 

; *PRIORITY LEVEL DEFINITIONS 

;;PRIORITY LEVEL 0 

PR1= 40 :;PRIORITY LEVEL 1 
PR2= 100 ;;PRIORITY LEVEL 2 
PR3= 140 3;PRIORITY LEVEL 3 
PR4= 200 ;sPRIORITY LEVEL 4 
PR5= 240 7 ;PRIORITY LEVEL 5 
PR6= 300 >;PRIORITY LEVEL 6 
PR7= 340 :;PRIORITY LEVEL 7 
3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 ; 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SWi1= 4000 
SW10= 2000 

= 1000 
SswO8= 400 
sw07= 200 
SwO6= 100 
SswoS= 40 

= 20 
swO3= 10 
SWO2= 4 
SwOl= 2 
SwO0= 


“EQUIV SwWO2,SW2 
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BASIC DEFINITIONS 


-EQUIV SWO1,SW1 
-EQUIV SWO0,SWO 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 


B1T00,B1T0 
**CPU'’ TRAP VECTOR ADDRESSES 
;TIME OUT AND OTHER ERRORS 
: 7 RESERVED AND ILLEGAL INSTRUCTIONS 
2; TRACE TRAP 
2 EOI GIP TRAP (BPT) 
: {POWER FAIL TRAP (I0T) **SCOPE** 
;EMULATOR TRAP (EMT) **ERROR** 
* TRAP 
YBOARD VECTOR 
TPV : CTOR 
PIROVEC=240 7 :PROGRAM INTERRUPT REQUEST VECTOR 
POOP i tier itit it ii itit iii iii riot iii iii rit iti ir iris) 
-SBTTL RH11 REGISTERS 
PRs itt titi titi tit it iii ii iii iii iii ii ir iii, 
CONTROL AND STATUS REGISTER 1 (RPCS1) , 
; INTERRUPT ae (BIT #6) 


:READY (BIT 
;HIGH ORDER BUS ADDRESS BIT (BIT #8) 
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HIGH ORDER BUS ery BIT (BIT #9) 
: PORT SELECT (BIT #10) 
MASSBUSS PARITY ERROR (BIT #13) 
: TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 


WORD COUNT REGISTER (RPWC) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


BUS ADDRESS REGISTER (RPBA) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RPCS2) 


UNIT SELECT (BIT #0) 
UNIT SELECT (BIT #1) 
UNIT SELECT (BIT #2) 
3;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
;MASSBUS rT ony TEST (BIT #4) 


; INPU ADY (BIT #6 

OUTPUT READY (BIT #7) 

MASS BUS PARITY ERROR (BIT #8) . 
MISSED pn A ae (BIT #9) 


1 
2 
4 
1 
2 
4 
1 
2 
4 
1 


0 

0 

0 

00 

00 

00 

000 
2000 
4000 
10000 
20000 
40000 
100000 


: c 

[DATA LATE (BIT #15) 
 sDATA BUFFER REGISTER (RPDB) 

‘(EACH BIT IS CALLED BY BIT NUMBER) 


s‘s RR AREER EERE EEE ERE REEREEEEKEEEEEEERER 


-SBTTL RPO4/5/6 REGISTERS 
Rte titi iit itiiii titi ititi titi titi titi iii iii tii iii iii ii, 
CONTROL AND STATUS 1 REGISTER. (#00) 

:GO BIT (BIT #0) 

; FUN 


SFUNCTION CODE BIT #4 
sFUNCTION CODE BIT #5 
:DEVICE AVAILABLE (BIT #11) 


DRIVE STATUS REGISTER (RPDS1) (#01) 
:DFS= 1 DRIVE FORWARD 5°'/SEC. - (BIT #0) 


DFF20= 2 ;DRIVE FORWARD 20°'/SEC. (BIT #1) 
DIGB= 4 DRIVE TO INNER GUARD BAND (BIT #2) 


SEQ 0013 
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B 2 
20-MAR-78 10:25 PAGE 16 
RPO4/5/6 REGISTERS 


GO REVERSE (BIT #3) 

ZDIFFERENCE LESS THAN 64 (BIT #4) 
;DIFFERENCE EQUALS 1 (BIT #5) 
[VOLUME VALID (BIT #6) 

[DRIVE READY (BIT #7) 

;DRIVE PRESENT (BIT #8) 
ROGRAMABLE T 


=P 

;LAST SECTOR TRANSFERRED (BIT #10) 

[WRITE LOCK (BIT #11) 

:MEDIUM ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 

SATTENTION ACTIVE (BIT #15) 


; ILLEGAL FUNCTION (BIT #0) 

; ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 
;PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

SWRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

SADDRESS OVERFLOW ERROR (BIT #9) 


:DRI 

OPERATION INCOMPLETE (BIT #13) 
DRIVE UNSAFE (BIT #14) 

;DATA CHECK ERROR (BIT 15) 


sMAINTAINABILITY REGiSTER (RPMR) (#03) 


DMD= 1 sDIAGINOSTIC MODE (BIT #0) 

MCLK= 2 ;MAINTAINABILITY CLOCK (BIT #1) 

MINX= 4 ;MAINTAINABILITY INDEX (BIT #2) 
MSTCK= 8 ;MAINTAINABILITY Se are #3) 


MRD= ‘ 
MWR= 40 [MAINTAINABILITY WRITE (BIT 
DTSY= 200 


BIT #5) 
;MAINTAINABILITY SYNC DETECTED (BIT #7) 
zATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 


ATO= 
AT1= 
AT2= 


:DEVICE ° 

; 2 

AT3= ;DEV 3 
; 4 

5 

6 


(BIT #0) 
(BIT #1) 


AT4= 
AT5= 
AT6= 3 

AT7= DEVICE 7 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


SEQ 0014 





C_é 
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DRIVE TYPE REGISTER (RPDT) (#06) 


1 
2 
3 
4 
5 
6 
7 
8 
9 


NUMBER BIT 
QUEST REQUIRED (BIT #11) 
BIT #13) 


BIT #14) 
NOT BLOCK ADDRESSED (BIT #15) 
;LOOK-AHEAD REGISTER (RPLA) (#07) 
EXTENSION 1 (BIT #0) 


sEXTENSION 5 (BIT #4) 

EXTENSION 6 (BIT #5) 

;SECTOR COUNT FIELD 0 (BIT #6) 

SECTOR COUNT FIELD 1 (BIT #7) 

; SECTOR COUNT FIELD 4 (BIT #8) 
3 (BIT #9) 


4 (BIT #10) 
T #11) 


TRACK FIELD 2 (BIT #12) 
sTRACK FIELD 3 (BIT #13) 
ZTRACK EYELD 4 (BIT #14) 
; TRACK FIELD 5 (BIT #15) 


(#10) 


WRITE CURRENT UNSAFE (BIT #0) 

;CURRENT SINK FAILURE (BIT #1) 

WRITE SELECT UNSAFE (BIT #2) 

= CURRENT SWITCH UNSAFE (BIT #3) 
TOR SEQUENCE ERROR ( #4) 


BIT 
TRANSITIONS DETECTOR FAILURE (BIT #5) 
; TRANSITIONS UNSAFE (BIT #6) 

:FAILSAFE ENABLED (BIT #7) 

sWRITE READY UNSAFE (BIT #8) 

Ae eat SELECT ag (Ra 


AC UNSAFE (BIT #15) 
7RPO5/6 ERROR REGISTER #02 (RPER2) (#10) 
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WCU= ;WRITE CURRENT UNSAFE (BIT #0) 
CSF= A 

WSU= (BIT 
CSU= CURRENT SWITCH UNSAFE (BIT 3) 
RAW= :R AND WRITE (BIT #4) 

TDF= T TRANSITIONS DETECTOR FAILURE (BIT #5) 
TUF = ; TRANSITIONS UNSAFE (BIT #6) 

ABS= ;ABNORMAL STOP (BIT fore 

WRU= 400 [WRITE READY UNSAFE (BIT #8) 

MHS= :MUT LTIPLE HEAD SELECT. (BIT #9) 

NHS= 2 #10) 

IXE= 000 INDE 

PLU= 3PLO UNSAFE (BIT #12) 


7 OFFSET 


ot ee 


I 
; ICRO INCHES (BIT #3) 
ZOFFSET 400 MICRO INCHES (BIT #4) 
ZOFFSET 800 MICRO INCHES (BIT #5) 
ZOFFSET NEGATIVE (REVERSE) (BIT #5) 
;HEADER COMPARE INHIBIT (BIT #10) 
sERROR CORRECTION CODE INHIBIT (BIT #11) 
sFORMAT BIT (BIT #12 


DESIRED CYLINDER ADDRESS (RPCA) a 
; (EACH BIT IS CALLED BY BIT NUMBER) 


CURRENT CYLINDER ADDRESS (RPCC) — 
; (EACH BIT IS CALLED BY BIT NUMBER 


SERIAL NUMBER REGISTER (RPSN) (#14) 
; (EACH IS CALLED BY BIT NUMBER) 


;RPO4 ERROR REGISTER #03 (RPER3) (#15) 
;PACK SPEED UNSAFE (BIT #0) 


VELOCITY UNSAFE (BIT #1) 
7 ANY roger", READ/WRITE (BIT #3) 


(BIT #6) 
‘SEEK INCOMPLETE (BIT #14) 
SOFF CYLINDER (BIT #15) 


;RPOS/6 ERROR REGISTER #03 (RPER3) (#15) 


DCU= ;DC_ UNSAFE (BIT #0) 

WAO= 2 WRITE AND OFFSET (BIT #1) 
ACL= sAC LOW (BIT #5) 

DCL= :DC LOW (BIT #6) 

OPE= 20000 SOPERATOR PLUG ERROR (BIT #13) 
SKI= 0000 :SEEK INCOMPLETE (BIT #14) 
OCYL= ;OFF CYLINDER ERROR (BIT #15) 





a 
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3ECC POSITION REGISTER (RPEC1) (#16) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


ECC PATTERN REGISTER (RPEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


SERRE EEE EEE EEE EEE EEE REE EEE EERE EERE ERE EE 


-SBTTL RPO4/5/6 DRIVER COMMANDS 


FLERE EEE ERE EEE REE RE RE EERE EEE ERE KEEEREEEEE 


101 NO OPERATION 
103 ; UNLOAD 


105 7 SEEK 
;RECALIBRATE 

DRIVE CLEAR 

amtiet 


7 OFFSET 
RETURN y CENTER LINE 
READ IN PRESET 

PACK ACKNOWLEDGE 

; SEARCH 

:GET REGISTERS 

SET FORMAT (& ECI OR HCI) 
SELECT DRIVE 

[WRITE CHECK DATA 

[WRITE CHECK HEADER & DATA 
:WRITE DATA 

WRITE HEADER & DATA 

READ DATA 

READ HEADER & DATA 


el a ed ce cal elt a ed od el ce ents tt a i i i 
NNAOQUUS SEWN AHH HO 
WWW YIW MS We NYAS 
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-SBTTL COMMON TAGS 


rs RARER EAE EAE EEE EEE KEKEE 


3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


SCMTAG: 2 START OF COMMON TAGS 


OR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL nn tay od 


MAX. E ER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS ira *BAD' DATA 

* GOOD * mor 


;; CONTAINS DAT 
; ;RESERVED--NOT TO Be USED 


3 sAUTOMATIC MODE INDICATOR 
:: INTERRUPT MODE INDICATOR 


7 ADDRESS OF SWITCH REGISTER 
7 ADDRESS OF DISPLAY REGISTER 
: ary KBD STATUS 
TTY KBD BUFFER 
STTy PRINTER STATUS REG. ADDRESS 
7: TTY PRINTER BUFFER REG. wiry 
: CONTAINS NULL CHARACTER FOR FILLS 
sCONTAINS # OF FILLER CHARACTERS REQUIRED 
2 i INSERT FILL CHARS. AFTER A‘ Dp’ 
:""TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
> ESCAPE ON ERROR ADDRESS 
ee 3 CODE FOR ori 


sQUESTION MAR 
<i5> i: CARRIAGE RETURN 
-ASC <12> NE FEED 

TITT ITT TITTLE LLL LLL 


0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


o°9 
on 
= 
ow 
v 


;RH11/RPO04/5/6 ee ADDRESS 
: VECTOR 


CSR 
S ADDRESS OF KW11-P COUNTER BUFFER 

ZADDRESS OF KW11-P VECTOR 

ZADDRESS OF KW11-L CONTROL REGISTER 

SADDRESS OF KW11-L VECTOR 

CONTAINS DRIVE NUMBER SELECTED 

:CONTENTS ARE FOR SOFTWARE DECISION 
MODE: =. ;*FORMAT & VERIFY’ OR ‘CHECK* MODE INDICATOR 
ENDCYL: . SENDING CYLINDER 
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BEGCYL: STARTING CYLINDER 
: SENDING TRACK 
STARTING TRACK 
:TOTAL # OF TRACKS TO BE FORMATTED 
: TOTAL # OF TRACKS COUNTER 
;COUNTS TRKS FROM 0-18 PER CYL 
+ CONTAINS PATTERN SELECTED 
T WORD OF pareoere 
:2ND OF PATTERN 
STORE CYLINDER ADDRESS FOR FORMAT VERIFICATION 
SMAINTAINS # OF WRITE RETRIES MADE 
CONTAINS LAST BAD SECTOR ON FORMAT 
; CONTAINS WC FOR REMAINING SECTORS ON ERROR 
320 OR 22 SECTOR TRACK SIZE (IN WORDS) 
:2°S COMPLEMENT OF ‘WC’ 
POSITIONING ERROR DURING FORMAT INDICATOR 
320 OR 22 SECTOR MODE INDICATOR 
20 gts Bay 


S = 22 SECTOR MODE 
nACI SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR 


S ADDRESS OF CURRENT CYLINDER 

ADDRESS OF CURRENT TRACK 

DRIVE NUMBER OF ‘DRIVER’ ERROR MESSAGES 
ATTENTION REGISTER IMAGE FOR ‘DRIVER’ 
ERROR MESSAGES 

ADDRESS OF ‘°*C* RETURN 

"CHANGE RH11 ADDRESS' FLAG 

"ERROR DURING WRITE CHECK" FLAG 


7RH11/RP04/5/6 REGISTERS STORED HERE AFTER AN OPERATION 
RP.REG: 0 


000000 
000022 
000000 


leleleleleoleleleleloleolelelelol io) 


0 
0 
0 
0 
0 
0 
0 
0 


COOOCOCCCOCOOCRVOOCOCOCOCOOCOCOoOO 


SRPEC2 


SESSSE8SSs3E 


;DATA/PARAMETER BLOCK = USED FOR ALL DRIVE OPERATION 


AH 3 ss Ss 3 ss 


So 
= 
oO 
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FMTDPB: DRIVE NUMBER 
OFFSET VALUE OR FMT22,ECI, AND HCI 
; COMMAND 


:C 
:PSEL AND es AND A16 


= 

oO 

= 

_ 

OoODOOOCCOCCCOO 
o 


sseeseeses 
SS aaNanRwn 


:BIT OA AND BIT 06-03 
; INDICATE TYPE OF ERROR 


;PARAMETER POINTER TABLE 


TABLE: PAR1,0,BEGCYL 
PAR2, 18. ,BEGTRK 
PAR3,0,ENDCYL 
PAR4,18.,ENDTRK,O 


ASCII MESSAGES FOR ADDRESS PARAMETERS 
051101 wan PAR1:  .ASCIZ @START CYL @ 
052122 PAR2: .ASCIZ @START TRK @ 
000040 
054503 PAR3: .ASCIZ @END CYL a 
052040 PAR4: .ASCIZ @END TRK a 


:SECTOR BUFFER ADDRESS TABLE 


ADRTBL: BUFP sADDRESS OF SECTOR 0 
WOR BUFP+<520.*1.> ;ADDRESS OF 

BUFP+<520.%*2.> ;ADDRESS OF 
BUFP+<520.%3.> ;ADDRESS OF 
BUFP+<520.%4.> ;ADDRESS OF 
BUF P+<520.*5.> ; ADDRESS OF 
BUF P+<520.*6.> 
BUF P+<520.*7.> 
BUFP+<520.*8.> ; 
BUF P+<520.*9.> T ADDRESS OF 
BUF P+<520.*10. S ADDRESS OF 
BUF P+<520.#11.> ;ADDRESS OF 
BUF P+<520.*12.> ;ADD 
BUF P+<520.*13. 
BUF P+<520.#14. 
BUF P+<520.*15. 
BUF P+<520.*1 
BUF P+<520.*1 


S ADDRESS OF 
ADDRESS OF 


0 
1 
2 
3 
4 
5 
6 
Ve 


> 
> 
> 
> . 
> . 
> 
> 
> 


NOUSWN—O 
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001544 + ADDRESS OF SECTOR 18 


REMAINING WORD COUNT TABLE 


WCTBL: 260. $ SECTOR 0 
260. +<260.*1.> 


;REMAINING WORD 
eae WORD 


. 
VVVVVVVVVVV 


sREMA 

[REMAINING WORD 
ZREMAINING WORD 
SREMAINING WORD 
; REMAINING WORD 
° MAINING WORD 
260. +<260.*21.> : REMAINING WORD 


_ 
ONAULSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SEZZPASSSSSLSSFARES 
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CZRJBC.P11 
1099 


20-MAR-78 


022242 
023424 
024676 
025210 


025220 


022377 
023534 
024722 
025224 


02471 
025214 
022470 


0 
025210 


ERROR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN + ipa 
>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND 
S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE, - PERTINENT. 
*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 


3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 


7zPOINTS TO THE DATA HEADER 


:;POINTS TO THE DATA 


::POINTS TO THE DATA FORMAT 


;RH11 INTERRUPT OCCURRED (RPAS=0) 


;UNEXPECTED ATTENTION OCCURRED 


;MASSBUS PARITY CRROR (MCPE=1) 


:MASSBUS PARITY ERROR (PAR=1) 


ADDRESS PLUG CHANGE BIT SET 


;RH11 DIDN'T RESPOND TO ADDRESSING 


SEQ 0022 
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4 
= 
wi 
wi 


sERROR 7 
000000 
000000 


000000 
000000 


022532 DRIVE OFFLINE 
023606 


024734 
025230 


022550 PERSISTENT DRIVE UNSAFE ERROR 
023606 


;UNCORRECTABLE MASSBUS PARITY ERROR 


022651 SOFTWARE TIMEOUT 
023606 


024734 
025230 


022672 DRIVE UNSAFE ERROR 
023606 


024734 
025230 


BELKFRASLESELEALATSSISISARANASSHIFSFERIS LSS 


022715 ;CONTROLLER/DRIVE ERROR DURING WRITE 
023606 


024734 
025230 


022761 ;CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
023606 


024734 
025230 


SeTeaRancs 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


N 
= 
=) 
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=) 
~m 
~~" 
_ 


sERROR 17 
;RETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLE 


0 
025244 


ronrononrerferr 
23 
OONAUSWI 


023111 DATA ERROR DURING WRITE CHECK 


025250 


VSVEVRORLS 


eee ee ee ed ee ed ed ed nd etd ed ed 
hr 


MNVNNMNWTNNTP 


023147 ;CONTROLLER/DRIVE ERROR VERIFYING HEADERS 
023606 


024734 
025230 


~_ ~~ 
KUNSS 


RA 


023220 ;"HCE® ERROR VERIFYING HEADERS 
023606 


024734 
025230 


023267 CYLINDER FIELD IN HEADER IS NOT CORRECT 
024424 
025104 
025270 


023337 ;WRITE CHECK ERROR 


;HARDWARE ERROR DURING WRITE CHECK 


025250 


J FERRER ERATE EEE EERE ETRE EE EAE EEA EERE EERE 


-SBTTL MAIN PROGRAM 
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CZRJBC.P11 


1264 
1265 
1266 

1267 002100 012737 177777 001302 BEGIN: MOV #-1, CHGADR 


20-MAR~7. 


M 2 
TR. MACY11 30A(1052) 20-MAR-78 10:25 PAGE 27 
-78 10:22 MAIN PROGRAM 


Z SERA EKEEKEEE 


SET CHANGE ‘'RH11 BUS ADDRESS’ INDICATOR 


SEQ 0025 
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CZRIBC.P11 


000402 
1269 002110 005037 001302 
1270 000005 
ist 002116 005037 001304 


1292 002232 02 177777 176700 
1293 002240 001012 

1294 

1295 002242 03 

1296 2 012716 002252 

1297 002250 2 

1298 002252 737 000176 901140 
1299 002260 012737 000174 001142 
fa 002266 012637 

1302 002272 000005 

1303 002274 012737 000240 000036 
1304 002302 012737 000240 000032 
1305 002310 012737 002110 001300 


N 2 
20-MAR-78 10:25 PAGE 28 
IN PROGRAM 


BR BEGIN2 ;START THE PROGRAM 
BEGINI: CLR CHGADR CLEAR THE ‘CHANGE RH11 ADDRESS’ INDICATOR 
BEGIN2: RESET CLEAR THE BUS 

CLR EFLG CLEAR ERROR DURING WRITE CHECK FLAG 
-SBTTL INITIALIZE THE C 


OMMON TAGS 
3;;CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV #SCMT 


AG ,R6 7:FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 7:CLEAR MEMORY LOCATION 
MP #SWR RE 3; : 
--6 ;;LOOP BACK IF NO 
#STACK , SP 37;SETUP THE STACK POINTER 


INITIALIZE A FEW VECTORS 
MOV #SERROR ,A#EMTVEC ss VECTOR FOR ERROR ROUTINE 
MOV #340, a#EMTVEC+2 ;:LEVEL 7 

MOV #STRAP ,a#TRAPVEC TRAP VECTOR FOR TRAP CALLS 

MOV #340, a#TRAPVEC+2;LEVEL 7 

CLR SESCAPE #SCLEAR THE ESCAPE a or ADDRESS 


MOVB #1, SERMAX ;ALLOW ONE E PE 
SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;:EQUAL TO A **=1°', SETUP FOR A SOFTWARE SWITCH REGISTER. 
@#ERRVEC.-(SP) ;;SAVE ERROR VECTOR 
MOV #64$,QHERRVEC  ;;SET UP ERROR VECTOR 
MOV #OSWR , SWR 23 SETUP FOR A HARDWARE SWICH REGISTER 
MOV #ODISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1 ,@SWR Z:TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ; BRANCH IF NO Mg TRAP OCCURRED 
+2 AND THE HARDWARE SWR IS NOT = -1 


BR 65$ BRANCH IF NO TIMEOUT 
643: ai #65$, (SP) SISET UP FOR TRAP RETURN 
65$: MOV #SWREG, SWR :;POINT TO SOFTWARE SWR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
RESET ;CLEAR WORLD 
V #PRS ,@#TRAPVEC+2 ;CHANGE TRAP PRIORITY BACK TO 5 


MOV #PRS ,Q#EMTVEC+2 ;CHANGE EMT PRIORITY BACK TO 5 
MOV #BEGINI,CNTLC ;'CONTROL C* ADDRESS 


SEQ 0026 


3 
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177777 INC #-1 on ir da ai ? 


BNE 1$ IF NO 
025324 TYPE - TITLE zADRS OF ‘TITLE* MESSAGE 
000011 CMPB #11,41 :LOA Rit mor AN RPO04/5/6 ? 


BNE 1$ R IF 
025401 TYPE , LOADRV Z INSTRUCT OPERATOR TO REMOVE 'XXDP" 
: PACK FROM DRIVE 0 
010334 $: JSR PC ,STKINT N ON THE KEYBOARD INTERRUPT 
° GET VALUE FOR SOFTWARE suiTch REGISTER 
000042 TST a#4e ;;ARE WE RUNNING UNDER XXDP/ACT? 
BN 67$ ;BRANCH IF YES 
001140 SWR , #SWREG 3 SOF TWARE SWITCH REG SELECTED? 
68$ ANCH NO 


IF 
G on [:GET SOFT-SWR SETTINGS 
000001, : #1, $AUTOB ::SET AUTO-MODE INDICATOR 
177777 ; : CHECK FOR FIRST START 

R IF NOT 


025626 -BUSA CHECK THE RH11 ADDRESS 
012376 SRPADR. RPADR :RH11 ADDRESS 
012400 SRPVEC ,RPVEC ;RH11 VECTOR ADDRESS 


;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
3 PROGRAM WILL USE 


SETVEC: PC,ST.CLK START THE CLOCK 
J PC,RPINIT INITIALIZE THE RPO4/5/6 DRIVER 
012336 #~1,SAVEFG ;SET THE SAVE REGISTERS FLAG 
177777 #-1 :SEE IF FIRST START 


11$ :BR IF YES 
000004 176460 4 ~ Samoan al ar DRIVE STATUS TABLE ? 


7BR I 
000340 177776 : #PR7,PS SET PRIORITY TO 7 
R4 :DRIVE TABLE POINTER 
001167 - SCRLF 


TCR=L 
020770 ~SYSTAT ; TYPE STATUS HEADING 


R4,-(SP) 7;SAVE R4 FOR TYPEOUT 
ahh: DRIVE NUMBER 
TYPE=-OCTAL ASCII 
2 i PYpE 2 DIGIT(S) 
0 +g SUPPRESS LEADING ZEROS 
021033 PACES 


-LIN4SP 
012250 DRVSTAC(R4) :CHECK DRIVE'S STATUS 

4$ BR IF UNSAFE 

5$ :BR IF ONLINE 
012260 DRVTYP(R4) ;SEE IF OFFLINE OR NONEXISTENT 
2s ;BR IF NONEXISTENT 


3$ 


020703 “NOTRP “DR 
BR 5$ :CHECK NEXT DRIVE 
020724 : NOTPRS ‘DRIVE NOT PRESENT 
BR $$ CHECK NEXT DRIVE 
020662 : , UNTOF F SDRIVE OFFLINE 
é$ SPRINT DRIVE TYPE 


a 


88 


WWWWWWWAWANAAWGS 
ah nb th ch ah ah aah ae aad ah 


PR RER GRUB RARAR IRR REY 


E¥EES 
OBNRAEAVIS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Win 
23 
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ee 8 


SNISSSSESS 


yy 
> 


SSSBRS RES SsIaIA5 


re) 


WWNWWWs 
RRRANS 


ee ee ee ee ee Dc ec ed ce ce a ee ee ee ed ed ed ad od od 
S 
N 


20-MAR-7. 


104401 
000402 
104401 


01 
012737 
64 


104401 


020741 


020756 
000002 
020763 


001167 
000010 
001167 


001220 
021251 


000103 
000106 
001166 
021324 
021303 


021337 
177777 


021357 
000131 
000116 


001166 
021430 


002640 
012260 
002640 
012260 
002640 


001220 


of anus ¥ 10:25 PAGE 30 
VALUE FOR SOFTWARE SWITCH REGISTER 


4$: 


5$: 
6$: 


108: 


TYPE 
BR 
TYPE 
TYPE 
MO 


. NOTSAF 
6$ 


-UNTON 
gates 


RPO4B, 8S 
mit00. -DRVTYP CRG) 


#RPOS 8S 

#BITO1, Sheil 
7$ BR 
#RP06 8S 


0 
-SCRLF 
R4 

R4 #8. 
1$ 

- SCRLF 


DRIVE UNSAFE 
PRINT DRIVE TYPE 
DRIVE ONLINE 


; SPACES 
; ADDRESS OF RPO4 MESSAGE 
zRPO4 ? 


YES 
w2ROS 2 OF RPOS MESSAGE 


F YES 

ADDRESS OF RPO6 MESSAGE 
TYPE THE DRIVE TYPE MESSAGE 
:MESSAGE ADDRESS HERE 


“L 
; INCREMENT >PRIVE NUMBER/TABLE POINTER 
FINISH ED ? 
7BR IF NOT 
> CR=LF 


;SEE WHICH MODE THE PROGRAM IS TO BE RUN IN 
ZMODES ARE: "FORMAT & VERIFY’ OR "CHECK FORMAT* 


M1: 


1$: 
2$: 


3$: 
4$: 


FIND OUT IF 


MIA: 


1$: 


MODE 
-MMODE 


(SP)+,R1 
(R1) 


2s 
#°c,{R1) 
‘8 
#°F,(R1) 
3$ 


oMSIZE 


(SP)+,R1 
#*y,(R1) 


1$ 
#°N,(R1) 
2$ 

(R1) 

1$ 

, SQUES 
MIA 
»MSEC22 


SET MODE TO ‘CHECK FORMAT’ 
; TYPE ‘PROGRAM MODE' 

;READ THE KEY 

7GET ADDRESS OF INPUT 

3° CR* — (DEF AULT) 


IF YES 
:NO yen yy ENTRY 
:TRY AGAIN 

TYPE REST OF "CHECK" 
GET STARTING ADDRESS 
phigh DEFAULT MESSAGE 


SET UP MODE 
;TYPE REST OF ‘FORMAT’ 
7SET MODE TO ‘FORMAT & VERIFY’ 


FORMAT IS TO BE IN 20 OR 22 SECTOR MODE 


TYPE FORMAT MODE REQUEST 
BOARD 


A IF IT 


:TRY AGA 
; TYPEOUT MODE SELECTED 


SEQ 0028 


CZRJBCO, RPOG/5/6 FMTR MACY11 30A(1052) 
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20-MAR-7 


012737 


013130 
164650 
177777 
000025 


021507 
012120 
660 


001214 
021031 


001166 
001214 


012250 


021217 
012260 
021112 


001300 


000041 


012336 
012340 


20-MAR-78 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


2s: 


M1B: 


3 
10:25 PAGE 31 


#<260.%22.>,WC ; TRACK SIZE IN 22 SECTOR MODE 
#-<260.#22.>,MWC_;2°S COMPLEMENT WORD COUNT 


#-1,SEC20 :22 SECTOR INDICATOR 

#21. ,MAXSEC “MAX SECTOR ADDRESS IN 22 SECTOR MODE 
M1B + CONTINUE 

,MSEC20 :TYPE OUT 20 SECTOR MODE SELECTED 


#<260.*20.>,WC ;TRACK SIZE IN 20 SECTOR MODE 
#-<260.*20.>, MWC 


2°S COMPLEMENT WORD COUNT 
SEC2 320 SECTOR INDICATOR 
#19. ,MAXSEC [MAX SECTOR ADDRESS IN 20 SECTOR MODE 
BEGTRK [CLEAR STARTING TRACK ADDRESS 
BEGCYL :CLEAR BEGINNING CYLINDER ADDRESS 
#18. ,ENDTRK :SETUP END TRACK ADDRESS 
#2,PATSEL :SETUP FOR WORST CASE PATTERN 
#-1,FMTOPB :SETUP INVALID DRIVE NUMBER 
MO ‘BRANCH TO START 


:GO FIND OUT WHAT DRIVE 


MO: 


2s: 
3$: 


4$: 


5$: 


6$: 


WOENTER,CNTLC ;CONTROL C ABORT ENTRANCE 


SERTTL ;CLEAR THE ERROR ACCUMULATOR 
PC, STKINT oe Boe ae THE TTY KEYBOARD 
-MUNIT zASK FOR DRIVE NUMBER 

READ THE KEYBOARD 
(SP)+,R1 ADDRESS OF ENTRY 
R5,CK.CHR CHECK ONE CHARACTER 


ILLEGAL_CHARACTER 
ZCARRIAGE RETURN 


° ° 
tee 


DIGIT 0-7 
DIGIT 8-9 
DRIVE ; SELECT ty! ate 
MDRVD :GO TYPE DEFA DRIVE NUMBER 
$ :GO SEE | IF DRIVE ZERO IS THERE 
, SQUES ; TYPE 
MO ZASK FOR DRIVE NUMBER AGAIN 
R2,DRIVE SAVE DRIVE NUMBER 
Re ;SEE IF DRIVE 0 
5$ :BR IF NOT 
#11,41 ;PROGRAM LOADED FROM AN RPO4/5/6 ? 
7$ :BR IF IT WAS, a FORMAT THE DRIVE 
PC,ST.CLK START THE CLOCK 
PC,RPINIT 7GO SEE WHAT DRIVES ARE AVAILABLE 
#-1,SAVEFG ;SAVE THE REGISTERS 
#~1,SEEKFG SET "NO OPTIMIZATION’ FLAG 
PS :SET PRIORITY BACK TO ZERO 
DRVSTA(R2) ;LOOK AT DRIVE STATUS 
8$ BRANCH IF INE 
6$ :BR IF grits) NOT AVAILABLE 
-MUSDR "DRIVE UNSAFE" 
MO :GO GET DRIVE NUMBER AGAIN 
DRVTYP(R2) 7A DRIVE PRESENT? 
7$ :BR IF SO 
-MDRNP ;TYPE "DRIVE NOT PRESENT" 
MO :GO GET DRIVE NUMBER AGAIN 


SEQ 0029 


CZRJBCO, RPO4/5/6 FMTR ep 8 hy 30A(1052) 20-MAR-78 10:25 PAGE 352 
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104401 021137 7$: -MER11 ;"DRIVE NOT AVAILABLE’ 
BR :GO GET DRIVE NUMBER 7 
001356 8$:  anatiimemat 2 SAME “ie” LAST TIME ? 
001356 DRIVE, Aad tg :SETUP DRIVE ADDRESS 
001222 MOV #410. :SETUP FOR RPO4/5 
012260 #a1T00'BITOT, DRVTYP(R2) SEE IF DRIVE RPO4/5S 
BN 9$ ;BR IF EITHER 
001222 #814. ,ENDCYL [SETUP ENDING CYLINDER FOR RPO6 
BEGTRK ZCLEAR STARTING TRACK ADDRESS 
BEGCYL :CLEAR STARTING CYLINDER ADDRESS 
001400 ENDCYL,TABLE+2 ENTRY LIMIT FOR BEGINNING CYLINDER 
001414 ENDCYL,TABLE+16 ;ENTRY LIMIT FOR END CYLINDER 
M2 GET ADDRESS LIMITS FROM THE OPERATOR 


GET ADDRESS LIMITS 


M2: -ENTADR ; "ENTER ADDRESS wei ® 
PC ,PARENT ;GET THE ADDRESS LIMITS 
ENDCYL,BEGCYL ;SEE IF ENDING CYLINDER EQ TO GT THAN BEGINNING 
M4 :BR IF HIGHER 
3$ :BR_IF LESS 
-— lteepaeeenctee $-y IF ENDING TRACK EQ OR GT THAN BEGINNING 


R IF YES 
-MADRER + INVALID ADDRESS ENTERED 
M2 TRY AGAIN 


PATTERN FOR FORMAT 
021710 : -MSELP :G0 TYPE "SELECT PATTERN* 
EYBOARD 


MOV = (SP) +,R1 DRESS 
006556 R5.CK.CHR :CHECK ONE CHARACTER 
ILLEGAL CHARACTER 
: CARRIAGE RETURN 


:DiGIT 0-7 
3$ DIGIT 8-9 
022010 1$: -MPATD TYPE DEFAULT PATTERN 
000002 #2,R2 ;WORST CASE PATTERN 
4$ :GO SAVE PATTERN 
000002 2s: R2 #2 71S # LARGER THAN 2 
4$ BRANCH IF NOT 
001166 3$: , SQUES sTVPE °?" 
000751 M4 RETYPE LINE 
010237 001240 4$: R2,PATSEL SAVE PATTERN SELECTED 


:GO TYPE ‘STARTING FORMAT ON DRIVE N° 


012737 006266 M5: MOV #TYPADR,CNTLC _—s “C ENTRANCE 
001220 MODE FORMAT' 


SESsSR 


WONAULWN—O 


CONAUSWN— 


1$ 3 E 
022023 . * rie :TYPE "STARTING FORMAT ON DRIVE N° 
022060 : -MSCHK ; TYPE ‘STARTING CHECK ON DRIVE N° 


2 2 ss ss SS Ss SS Ss 3 SS SS Ss SS SS SS SS SS SS SS Ss SS SS SS 


MAMA MAY AMAA UI A UI UI UA UI UIT 
YVUNUYVYUNUNS SS ourunee 
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=" 
MUI 
WWW 


SEESLAS SS See 


WN=S ¢ 


¥ 
ve 


SESS PAR CSS ERENT. 


& 
o 


1 
1 
7 
1 
1 
1 
1 
1 
1 
Fi 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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013746 
104403 
001 


000 
104401 


023737 
001011 


00473 
112737 


ot untae F 10:25 PAGE 33 
T VALUE FOR SOFTWARE SWITCH REGISTER 


2$: 
MOV 


TYPOS 
-BYTE 


TYPE 


DRIVE ,~(SP) 


1 
0 
- SCRLF 


; s SAVE DRIVE FOR TYPEOUT 
IVE NUMBER 


DIGIT(S 
;; SUPPRESS LEADING ZEROS 
CR-LF 


;SETUP TOTAL TRACK COUNT FOR FORMAT 


STARTING AND ENDING CYLINDERS THE SAME ? 
BRANCH IF BEGCYL NOT EQUAL TO ENDCYL 
END TRACK ADDRESS 


CKADRS: CMP 
BNE 


THIS CODE SETS 


SETPAT: CLR 
CLR 


;THIS CODE SETS 


WRTRK: JSR 
JSR 
MOVB 


ENDCYL ,BEGCYL 
1$ 


ENDTRK,TTRKS 
BEGTRK,TTRKS 
TTRKS 

SETPAT 
ENDCYL ,R2 
BEGCYL ,R2 
ENDTRK,TTRKS 
BEGTRK,TTRKS 
2$ 
#19. , TTRKS 
R2 


TTRKS 


SETPAT 
#19.,TTRKS 
3$ 


UP THE SELECTED 


PATB 
er 
#165555 ,PATA 
A eatin 


R2,(RO)+ 
R3 


R3 
2$ 


SUBTRACT THE STARTING TRACK ADDRESS 
;MAKE THE NUMBER OF TRACKS INCLUSIVE 
;SETUP THE DATA PATTERN 

SENDING CYLI 


NDER 
;SUBTRACT THE STARTING CYLINDER 
CALCULATE THE RESIDUAL TRACKS 
; SUBTRACT THE STARTING TRACK 
:BR_ IF ENDING TRACK GREATER 
:CORRECT THE VALUE 


;COUNT THE PARTIAL TRACK 
;MAKE THE NUMBER INCLUSIVE 
ot ke CYLINDER COUNT 


7BR IF 
: ADD CYLINDER WORTH OF TRACKS 
; CONT INUE 


DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 


;CLEAR DATA PATTERN A 
;CLEAR DATA PATTERN B 
cane i OF ONES 


IF SO 
SET PATA TO ONES 
:SET PATB TO ONES 
;SEE IF PATTERN OF ZEROS 
;BRANCH IF SO 
SET UP WORST CASE 
;SET UP WORST CASE 


:SET UP PATTERN IN R2 
;MOV 1ST PAT INTO MEM 


:MOV 2ND PAT INTO MEM 


KEEP COUNT 
KEEP COUNT 
;D0 IT AGAIN IF R3 NOT O 


UP FOR THE ACTUAL FORMAT 


PC,SETTBL 
PC. SETHDR 
#20, FMTDPB+1 


;GO SET UP DRIVER TABLE 
:GO INITIALIZE HEADERS IN THE SECTOR BUFFER IN CORE 
;LOAD FMT22 BIT 


SEQ 0031 
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P11 20-MAR-78 10:22 


CZRJBC.P 


S338 


DAMMAM 
00 
WN 


FAST TR ERE RS 


AXARAGRAAAAO 
ad ab ob ab ad ah od ad od od 
WONAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


001005 
013737 


001264 
001357 
000143 
013164 


G 3 
Bry - 10:25 PAGE 34 
T VALUE FOR SOFTWARE SWITCH REGISTER 


4$: 


TST 


— 318 BIT —" ? 


:BR IF 
FMTDPB+1 CLEAR THE FMT22 BIT 
#SETFMT, FMTDPB+2° ; "LOAD FORMAT’ COMMAND 
RO,RPO4 START THE COMMAND 
:DPB ADDRESS 
TQUEUE FULL RETURN 


2s 
FMTDPB+16 OOK FOR DONE 
3$ ; LOOP Uiate ConteR 


SOF SW 


RETRY $ OUNTER 

EFLG CLEAR ERROR DURING WRITE CHECK FLAG 

FMTDPB+10 ;RESTORE SECTOR 

MWC , FMTOPB+4 ; 

#BUF P , FMTDPB+6 BA 

MODE 3 T* OR ‘CHECK’ MODE ? 

CKTRK 7BR IF ‘CHECK’ MODE 

#WRTHD,FMTDPB+2 ;SET WRITE HEADER & DATA COMMAND IN TBL 

#. ,SLPERR ;SETUP LOOP ON ERROR ADDRESS 

#STACK,SP ;LOAD STACK POINTER 

RO, RPOS [GO FORMAT A TRACK 
; ADRS OF PARAMETERS - TBL 

1$ ;WAIT FOR QUEUE IF FULL 

FMTDPB+16 ;WAIT FOR COMMAND TO COMPLETE 

2s BRANCH IF NOT DONE 

4$ ;BRANCH IF NO ERROR 

#3$ ,SESCAPE 3;ESCAPE TO 3$ ON ERROR 

PC ,ERINDX SEE WHICH ERROR 

10 DRIVE OFFLINE 

11 PERSISTENT DRIVE UNSAFE ERROR 
SUNCORRECTABLE MASSBUS PARITY ERROR 
: SOFTWARE TIMEOUT 
;DRIVE UNSAFE ERROR 
:DRIVE/CONTROLLER ERROR DURING WRITE 

-LOP.CK THE ERROR ? 


LOOP ON 
3,RETRY SERROR RETRY LIMIT ? 
$ BR IF REACHED 
RETRY :COUNT THE ERROR 
1$ TRY AGAIN 
SESCAPE CLEAR ERROR ESCAPE ADDRESS 
RETRY CLEAR THE RETRY COUNTER 


CHECK THE TRACK JUST WRITTEN 


CKTRK: 


1$: 


2$: 


WWCKHD ,FMTDPB+2 ;SET WRITE CHECK HEADER & DATA COMMAND IN TBL 
#.,SLPERR ;SETUP LOOP ON ERROR ADDRESS 
#STACK,SP LOAD STACK POINTER 
RO,RPO4 :GO CHECK THE TRACK JUST FORMATTED 
3 PARAME T a TBL 


1$ sWAIT FOR QUEUE IF FULL 

FMTDPB+16 WAIT FOR COMMAND 10 COMPLETE 

2$ Ht cape IF NOT DONE 

8$ ;BRA F NO ERROR 

RP.REG+RPDA, SAVSEC HE gg Hh ADDRESS 
H IF NOT S 0 


MAXSEC sAVSEC RESTORE TO LAST SECTOR +1 


SEQ 0032 
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P11 


174442 
001304 


001316 
174410 
001304 


3 
20-MAR-78 10:25 PAGE 35 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


3$: 


SAVSEC ; INCREMENT TO LAST SECTOR +1 
A ; ADJ SEC TO y Ay THAT FAILED 


PERSISTENT DRIVE UNSAFE ERROR 
;UNCORRECTABLE MASSBUS PARITY ERROR 
WARE TIMEOUT 


14 IVE UNSAFE ERROR 
#WCE RP. necerpcsi LORIE CHECK ERROR ? 
4$ R IF SET 


RP.REG+RPER1, (PC)+ ;CHECK FOR DATA ERRORS 
DCK!OPI!DTE!HCRC!HCETFER. DATA ERROR BITS 


:BR IF SET 
pv a gr yt Log ae DURING WRITE CHECK 
oom CHECK MODE ? 


‘BR it CHECK 
Ao yt Faas SECTOR ? 


$ IF 
#11, SESCAPE 7;ESCAPE TO 11$ ON ERROR 
EFLG — DURING WRITE CHECK REPORTED ? 
21$ INCREMENT ERROR COUNT 
SERTTL ives, DECREMENT REPORTED ERROR COUNT 
EFLG CLEAR ERROR DURING WRITE CHECK FLAG 
17 7SECTOR NOT ACCEPTABLE 
SESCAPE [CLEAR THE ERROR ESCAPE ADDRESS 
RP.REG+RPER1 DATA CHECK ERROR ? 

NO, CHECK OTHER ERRORS 
#B1T7,aSwR : INHIBIT SOFT ERROR REPORTS ? 
7$ YES, SKIP ERROR REPORT 
#1,EFLG SET ERROR DURING WRITE CHECK FLAG 
20 :DATA ERROR DURING WRITE CHECK 


7$ = CONT INUE 
WUCE.RP.REG*RPCSD SWRITE CHECK ERROR ? 
4 T BE HARDWARE ERR 


OR 
#B1T7,aSwR : INHIBIT SOFT ERROR REPORTS ? 
7$ YES, SKIP ERROR REPORT 
#1,EFLG - }SET ERROR DURING WRITE CHECK FLAG 
24 tie ERROR 


7$ : CONT 
#1,EFLG SET ERROR DURING WRITE CHECK FLAG 
25 HARDWARE ERROR DURING WRITE CHECK 
SAVSEC,R1 FAILING SECTOR ADDRESS 
SAVSEC, seeetetiag™ i te ADDRESS 
R1 ETUP_ INDEX TO ADDRESS WORDS 
ADRTBL(R1), FMTDPASG ;BUFFER ADDRESS FOR FAILING SECTOR 

MWC .- (SP ;GET MAXIMUM WORD COUNT VALUE (2°S COMP) 
WCTBL (RI), (SP) ;ADD WORD COUNT THROUGH FAILING SECTOR 
(SP) +, SAVWC + STORE WORD COUNT FOR eet OF TRACK 
MODE ;FORMAT OR CHECK MODE ? 

:BR IF CHECK 


4 


9$ 

#-260.,FMTDPB+4 ;WORD COUNT FOR 1 SECTOR 

SOF SW : INDICATE THAT A RETRY IS IN PROGRESS 
WRIRK2 ;REFORMAT ERROR SECTOR 

SOF Sw ;RETRY IN PROGRESS ? 

11$ ;BR IF NOT 


SEQ 0033 





a 


CZRJBCO, RPO4/S/6 FMTR  MACY11 30A(1052) 
CZRJBC.P11 20-MAR-78 10:22 


1698 004644 022737 000002 001216 
1699 004652 0014 
004654 005237 001216 
00060 


a3 


001366 


a 
Ww 

= 

~™ 

Ww 
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. 

Nm 

& 
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20-MAR-78 10:25 PAGE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


9$: CMPB 


10$: JSR 


11$: CLR 


12$: JSR 
BR 
JMP 


—— = id er RETRY 

SOF Sw FINCRERENT RETRY COUNT 

1$ EAD AGAIN 

MAXSEC, FMTDPB+10° ast Ha e SECTOR ON THE TRACK 
PC,SCAWC SETUP TO CHECK REMAINING SECTORS ON THE TRACK 
SOF SW ;CLEAR RETRY COUNTER 

EFLG CLEAR ERROR DURING WRITE CHECK FLAG 

1 FINISH CHECKING T CK 

PC,LOP.CK CHECK FOR L ERROR 

#3,RETRY ERROR RETRY REACHED ? 

1$ :BR IF IT IS 

RETRY ds ye THE RETRY 

$ DO THE WRITE CHECK AGAIN 

SESCAPE TCLEAR THE ERROR RETURN ESCAPE ADDRESS 


ETRY CLEAR THE RETRY COUNTER 


. EFLG CLEAR ERROR DURING WRITE CHECK FLAG 
#B1T1,aSwR ;LOOP ON CURRENT TRACK ? 

12$ 7BR IF NOT 

WRTRK1 START AGAIN ON THE SAME TRACK 


PC, TRKTST GET UPDATED TRACK AND CYLINDER ADDRESSES 
HDREAD ;RETURN HERE IF DONE - DO QUICK CHECK OF DISK 
WRTRK1 CONTINUE WITH THE FORMAT 


: THIS CODE MAKES SURE EACH CYLINDER FORMATTED CONTAINS THE 
:PROPER CYLINDER ADDRESS. THE PROGRAM IS LOOKING FOR 
:POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 


HDREAD : ~ 


1$: JSR 


DERR :CLEAR HEADER CHECK ERROR INDICATOR 
PC, SETTBL :GO SET UP DRIVER TABLE 
PC,,SETHDR :GO SET UP HEADERS IN CORE 
BEGCYL, CYLCK s;USE "BEGCYL® FOR FORMAT VERIFICATION 
#-4, FMTOPB+4 SET UP WORD COUNT 


#RBUF FMTDPB+6 =; SET i BUFFER ADRS 
MTDPB+10 :CLEAR THE SECTOR & TRACK ADDRESS FIELD 
BEGCYL, FMTDPB+12 ;SETUP THE CYLINDER FIELD 
— D,FMTDPB+2 ;SET UP READ HEADER & DATA COMMAND 
#.,SLPERR 7SETU A 
#STACK,SP :LOAD STACK POINT 
RO,RPO4 :GO READ HEADER 


SEQ 0034 


J_ 3 
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CZRJBC.P11 20-MAR-78 10:22 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0035 


001356 zADRS OF PARAMETER at 

00077 BR 1 sWAIT IF QUEUE IS FUL 

2$: FMTDPB+16 FOR COMMAND 10. COMPLETE 
2$ ‘8 NOT DONE 


4$ 
#5$ , SESCAPE 
PC ,ERINDX 


1 3 NE 

1 ;PERSISTENT DRIVE UNSAFE ERROR 

1 ;UNCORRECTABLE MASSBUS PARITY ERROR 

1 SOFTWARE TIMEOUT 

1 :D * UNSAFE ERROR 

Ccekes, /FMTDPB+16 a i a” ad ERROR A HEADER COMPARE ERROR ? 


21 : CONTROLLER/DRIVE ERROR VERIFYING HEADERS 
001160 : SESCAPE :CLEAR THE ERROR ESCAPE ADDRESS 

22 ;HEADER COMPARE oy — HEADERS 
005464 PC,LOP.CK CHECK FOR LOOP ON ERR 
025314 025324 : gs -BUFP i SEE IF CYL READ EQUALS. CYL EXPECTED 


177577 


005464 : PC,LOP.CK 
001222 001246 : ENDCYL,CYLCK 
7$ ;BR IF NOT FINISHED 
005230 SEOP sEND OF FORMAT 
001246 : CYLCK ate re oe ADDRESS BEING CHECKED 
006012 PC ,UPDACY 7SET UP FOR NEXT CYL 
001370 FMTDPB+12 + ADVANCE TO NEXT CYL # 

1$ :GO READ NEXT HEADER 


-SBTTL END OF PASS ROUTINE 


RRR REAR AERA EEE EERE REE RE ERE 
{ RINCREMENT THE PASS NUMBER + 

:*IF THERES A MONITOR GO TO I 

:*IF THERE ISN'T JUMP TO DONE 


SEOP: 
001220 MODE ;"FORMAT’ OR ‘CHECK’ MODE ? 
E 3$ :BR IF ‘CHECK’ 
022114 MF CMPT "FORMAT COMPLETE 
B 4$ FINISH THE END MESSAGE 
022141 : -MCCMPT 3; "CHECK COMPLETE’ 
: ~NUMERR "TOTAL ERRORS DETECTED: ‘ 
SERTTL,~(SP) 3 3 SAVE SERTTL FOR TYPEOUT 
ores 3:GO TYPE--DECIMAL ASCII WITH SIGN 


(R= LF 
PASS # INCREMENT THE PASS NUMBER 
#100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
D (PC)+ ;;LOOP? 
SEOPCT: 
B SDOAGN 77 YES 
MO (PC)+,a(PC)+ 7;RESTORE COUNTER 
SENDCT: 1 
$GET42: MOV a#42,RO0 3:GET MONITOR ADDRESS 


RASISSSIKARASASIIISIIATI 
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CZRJBC.P11 20-MAR-78 10:22 END OF PASS ROUTINE 


a 


SDOAGN ce hEAR IF NO MONITOR 
R HE WORLD 
SENDAD: JSR PC, (RO) 
NOP 


SDOAGN: 
a(PC)+ 3; ;RETURN 
$R 2 DONE 
000001 173572 sr. ® #SWO0 ,aSWR 7SEE IF SWR O SET 
BN 1$ ;BR IF SET 


m0 TASK FOR NEXT DRIVE 
1$: #STACK,SP SRESET STACK POINTER 
m5 [DO THE FORMAT OR CHECK AGAIN 


FERRARA AREA EEA EEE ERE AEE EAE EERE ERE RARER AAR KEREREKERKEK 


-SBTTL SUPPOn. SUBROUTINES 


LRA RARER AAA A RAAT E TEAR ETEK RAR 
;THIS ROUTINE DETERMINES THE ERROR TYPE 


ERINDX: MOV R1,-(SP) sSTORE R1 
CLR R1 [CLEAR R1 
FMTDPB+16,(PC)+ °:CHECK ERROR TYPE 
BIT14!BITI3!BIT2!BI1T1 ;DRIVE OFFLINE 
5% :BR IF OFFLINE 
FMTDPB+16,(PC)+ :CHECK ERROR TYPE 
BIT12 SDRIVE PERSISTENTLY UNSAFE 
4$ [BR IF UNSAF E 
FMTDPB+16, (PC)+ :CHECK ERROR TYPE 
BIT11!BITiO SUNCORRECTABLE MASSBUS PARITY ERROR ? 
3$ [BR IF PARITY ERROR 
FMTDPB+16, (PC)+ :CHECK ERROR TYPE 
BIT T09!BIT08 i SOFTWARE TIMEOUT 2 ? 


2 $ 
FMTDPB+16,(PC)+ ; 
BIT04 


BeeRGRoncssase 


2 09 00 09 Go 09 Co CO Co CO 
he add ad od od 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RABSESESERERE 


PE 
DRIVE UNSAFE ERROR ? 
7BR IF YES 
; INCREMENT THE RETURN 
Z INCREMENT THE RETURN 
S INCREMENT THE RETURN 
; INCREMENT THE RETURN 
: INCREMENT THE RETURN 
R1 ;DOUBLE THE INCREMENT 
R1,2(SP) ;DEVELOP THE RETURN ADDRESS 
(SP)+,R1 RESTORE R1 
C ; RETURN 
ROUTINE TO CHECK FOR LOOP ON ERROR 
032777 LOP.CK: BIT #SWO9 ,aSWR ;LOOP ON ERROR ? 
BEQ 1$ ;BR 


001402 :BR IF NOT 
000177 @SLPERR :GO TO THE LOOP ON ERROR ADDRESS 
005037 : SESCAPE CLEAR THE ERROR ESCAPE ADDRESS 
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-P11 20-MAR-78 10:22 SUPPORT SUBROUTINES SEQ 0037 


033727 001374 FMTDPB+16, (PC)+ ;CHECK FOR ‘FATAL’ ERROR 
WORD B1T14!B1T15:B1112:81110:B1 701 7 "FATAL’ ERROR BITS 


2$ R IF NOT 
004000 FALE. RP.REGHRPERY :WRITE LOCK ERROR ? 


2$: JMP SEOP : TERMINATE THE FORMAT 
3$: PC RETURN 


;THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


SETTBL: MOVB DRIVE ,FMTDPB SET UP DRIVE # 
CLRB MTDPB+3 > CLEAR HIGH ORDER ADRS BITS 
UP WORD COUNT 


;LOAD 

;LOAD UP CURRENT ADRS 

SET SECTOR TO ZERO 
BEGTRK,FMTDPB+11_ ;SET UP STARTING TRK ADRS 
BEGCYL .FATDPB+12 3SET UP Pens CYL 
FMTDOPB+16 :CLEAR_RPO4 S 
BEGTRK,TRKCNT ;SET UP PARTIAL TOL TRACK COUNT 
TTRKS, TTRKSC 2SET UP TOTAL TRACKS COUNTER 
PC RETURN FROM SETUP 


; THIS ROUTINE CONTROLS THE DISK ADDRESSING AND TOTAL TRK COUNT 
:I1T IS ENTERED AFTER EVERY TRK OPERATION 


TRKTST: DEC TTRKSC SEE IF LAST TRACK 
BEQ $ BRANCH IF LAST TRACK 
4 a mel :I1S THIS THE LAST TRACK IN THE CYLINDER ? 


;BRANCH IF SO 
TRKCNT ; COUNT UP TRACK WITHIN CYLINDER 
FMTDPB+11 ; INCREMENT TRACK R 
anne UPDAT E TRACK ADDRESS IN BUFFER 


2EX!I 
1$: CL TRKCNT ;CLEAR TRACK COUNT FOR NEXT CYLINDER 
FMTOPB+11 RESET TRACK ADDRESS TO 0 
FMTDPB+12 SUPDATE CYLINDER NUMBER 
PC ,UPDACY [UPDATE CYLINDER ayers IN BUFFER 
2$: #2, (SP) ADD TWO TO RETURN ADRS 
3$: PC ; RETURN 


THIS ROUTINE SETS UP WC & BA FOR REMAINING SECTORS 
SAFTER A WRITE CHECK ERROR 


SCAWC : SAVWC ,FMTDPB+4 2 SET UP WC FOR REMAINING SECTORS 
AD #520.,FMTIDPB+6 9 ;SET 
FMTOPB+10 
SOF Sw TER 
PC RETURN TO COMPLETE TRK FORMAT 


THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT, TRACK AND 
SECTOR ADRS IN MEMORY WITH THE STARTING CYL ~- TRK INFORMATION 


013701 001266 SETHDR: MOV MAXSEC ,R1 SET UP SECTOR COUNT 
012700 MOV #BUFP ,RO :SET UP HEADER POINTER IN RO 
013702 1224 MOV BEGCYL ,R2 ;PUT STARTING CYL # IN R2 


REPRE ESAS TREE Ett oh ot 





a 
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1907 7 001230 BEGTRK ,R3 3PUT tee Taare TRK # IN R3 
R3 : JUSTIFY TRACK_ADRS 
001264 SEC20 SEE IF 20 OR “ SECTOR MODE 
1$ 7BR IF 20 SECTOR MODE 
010000 0000 ,R2 4 4 THE 22 SECTOR FORMAT BIT 
: MOV ITE IN HEADER AREA OF CORE THE CYL ADRS 
cURITE IN ras AREA OF CORE THE TRK ADRS 


a8 8 


kd dd 
3333352238 
WONAUSWN—O 


eee3 


SEC TOR 
sEXIT - HEADERS ARE LOADED INTO CORE 
;THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS IN CORE 


001266 UPDACY: MOV MAXSEC,R1 + SET UP SECTOR COUNT 
025324 MOV #BUFP -RO 7SET UP HEADER POINTER IN RO 
1$: (RO)+ + INCREMENT FOR NEXT CYLINDER 
177400 #177400, (RO) TRESET TRK ADRS TO 0 
001006 #518. RO sSET UP FOR NEXT HEADER 
Ry ;COUNT SECTORS 
1$ ;BRANCH IF NOT LAST SECTOR 
PC sEXIT 


: THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


013701 001266 UPDATK: MOV MAXSEC ,R1 SET UP SECTOR COUNT 

012700 025324 MOV FP,RO SET UP HEADER POINTER IN RO 

005720 (RO)+ ;POINT HEADER POINTER TO TRK = SEC ADRS 
062710 000400 1$: TRK_ ADRS 

062700 001010 


005301 3 CTORS 
002372 ;BRANCH IF NOT LAST SECTOR 
00020 IT 


ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
ST.CLK: MOV #STCLK1,@#ERRVEC ;SET UP VECTOR FOR P CLK 
CLR RVEC+2 ;NEW! PS 


SET CLK - CNT UP 


BR 
STCLK1: #4,SP RESTORE THE STACK POINTER 
MOV esteik2 ,@#ERRVEC” CHANGE ERROR VECTOR 
aSLKS ;LOOK FOR KW11=L 
SLLVEC,~(SP) ;KW11-L VECTOR ADDRESS 
#CLOCK ,a(SP) 7SET UP KW11-L_VECTOR 
. (SP : INCREMENT VECTOR ADDRESS 
#PR6.a(SP)+ 7PSW - PRI 6 
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1963 


006210 
006216 
20 


012777 
000402 


062706 
012737 
000207 


012746 
004737 


000100 


000020 
016616 


001376 
006404 


021021 


172770 


000004 


001300 


001300 


nN 3 
20-MAR-78 19:25 PAGE 41 
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MOV #100 ,aSLKS SET KW11-L INTERRUPT ENABLE 

BR STCLK3 
STCLK2: ADD #4 ,SP RESTORE THE STACK POINTER 
STCLK3: MOV #6 ,A@#ERRVEC RESTORE THE ERROR VECTOR 

RTS PC 
THIS CODE SERVICES A CLOCK INTERRUPT EVERY 16MS 
CLOCK: MOV #16. ,-(SP) PUT MILLISECONDS ON THE STACK 

JSR PC,.RPTMR GO REPORT TIME 

RTI RETURN AND CONTINUE 
ROUTINE TO INTERCEPT ‘CONTROL C° TYPED DURING PARAMETER ENTRY TIME 


— ot #STACK , SP INITIALIZE THE STACK 


TRNSWT SALL ACTIVITY STOPPED ? 
BNE 1$ 3 F NOT 
RESET [CLEAR THE BUS 
JMP M1B START AGAIN WITH DRIVE SELECTION 
ROUTINE TO TYPE THE PRESENT DISK ADDRESS. ENTERED BY TYPING ‘CONTROL C" 
TYPADR: CLR PSW SET PROCESSOR TO PRIORITY 0 
MOV WOENTER,CNTLC ;CHANGE ‘CONTROL C' RETURN ADDRESS 
ae , ae 4 cee ADDRESS IS: 
MOV FMTDPB+12,-(SP) ;PUT THE CYLINDER —— ON THE STACK 
JSR PC ,$SB2D ;CONVERT IT TO DECIMA 
JSR PC, SSUPRS :TY PE IT 
TYPE -LINSP SPACES 
TYPE oT as 
CLR -(SP) ICLEAR THE STACK 
MOVB FMTDPB+11,(SP) ;PUT THE TRACK ADDRESS ON THE STACK 
JSR PC,$SB20 ;CONVERT IT TO DECIMAL 
JSR PC,SSUPRS TYPE IT 
TYPE - SCRLF :CR-LF 
MOV #TYPADR,CNTLC ;RESTORE ENTRANCE TO THIS ROUTINE - 
RTI 7 RETURN 
Or ei ENTRY ROUTINE 
3 MOV #ADR ,R3 PARAMETER TABLE ADDRESS 
: JSR PC PARENT ;GET THE PARAMETERS 
PARENT: MOV R3,-(SP) 7 SAVE _R3 
MOV #TABLE ,R3 [PARAMETER TABLE ADDRESS 
1$ (R3)+, 3$ ZADDRESS OF PARAMETER NAME 
BEQ :BR_IF_AT END OF TABLE 
TYPE TYPE THE PARAMETER 
3$ -WORD 0 ADDRESS OF PARAMETER NAME TEXT 
MOV it to R2 MAXIMUM PARAMETER VALUE 
MOV (R3)+,R5 ADDRESS OF PARAMETER 
MOV (R5) ,=(SP) et VALUE OF PARAMETER 
TYPDS TYP e , THE CURRENT VALUE OF THE PARAMETER 


TYPE » SLASH 
RDLIN ‘READ THE KEYBOARD 


SEQ 0039 


B 
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MOV (SP)+,R1 ; INPUT ASCII ernie) ADDRESS 
006630 JSR R5,CK.DIG :CHECK THE DIGIT 
$ ; CARRIAGE RETURN. ONLY ENTERED 
:PERIOD ONLY ENTERED 
; ILLEGAL_ INPUT 
; TERMINATED wi te ye CARRIAGE RETURN 


5$: R2,(R5) 
1$ 


6$: ,BADENT $ TRY 
#6 ,R3 :DECREMENT THE TABLE POINTER 
TRY AGAIN 
7$: geo thos NEW VALUE 


sEXIT 
8$: #TABLE ,R3 ;RELOAD THE PARAMETER TABLE ADDRESS 
1$ :TRY AGAIN 
9$: (SP)+,R3 ;RESTORE R3 
PC RETURN 


THIS ROUTINE IS USED TO CHECK IF 
ASCII CHARACTER IS A DIGIT BETWEEN No AND 7. 


; #ADR,R1 yADDRESS OF ASCII CHARACTER 
; R5,CK.OCT :CHECK THE CHARACTER 
; RETURN : CHARACTER IS NOT BETWEEN 0-7 


RE TURN2 ;CHARACTER IS IN R2 AS A 
ZOCTAL DIGIT 


000060 CK.OCT: (R1),#°O sLESS THAN ZERO? 
BL 1 ;YES -- BRANCH 
000067 . iGREATER THAN SEVEN? 
1$ ANCH 
‘GET THE CHARACTER 
177770 sSTRIP AWAY THE ASCII 


;ADJUST FOR RETURN 
1$: 5 ; RETURN 


THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
ZAND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9. 


#ADR,R1 ADDRESS OF ASCII CHARACTER 
R5,CK.DEC CTER 
RETURN1 
RE TURN2 
;R2 = DIGIT 


;LESS THAN te 
:YES =~ BRAN 
; GREATER THAN NINE? 


;YE ANCH 

:GET THE CHARACTER 
STRIP AWAY THE ASCII 
SADJUST FOR RETURN 
; RETURN 


DzanaRnene ne 





~~ 
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; THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
oN agpan WHAT IT IS. 


#ADR,R1 ADDRESS OF ASCII CHARACTER 
ae S ONENO K CHARACTER 


NOWN CHARACTER 
[CARRIAGE RETURN * (R1)=ADR+1 
COMMA * (R1)=ADR+1 
:PERIOD * (R1)=ADR+1 


WEEN 8 AND 9. 
:R2 = DIGIT * (R1)=ADR+1 
‘CARRIAGE RETURN''? 
iY ANCH 


R5,CK.OCT 

(R5)+ ‘DIGIT BETWEEN 8-9 
[DIGIT BETWEEN 0-7 
[PERIOD 


; COMMA 

CARRIAGE RETURN 

sMOVE POINTER TO NEXT CHARACTER 
; UNKNOWN CHARACTER 

; RETURN 


; THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 
a AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 


Ne #ADR ,R1 ADDRESS OF ASCIZ STRING 
#NUM ,R2 7 MAX. 77h OF INPUT NUMBER 
R5,CK.DIG : CHECK DIGITS 
ADR1 ‘"CR’’ ONLY ENTERED -- R2=0 
:‘PERIOD'’ ONLY ENTERED -- R2=0 
s ILLEGAL CHARACTER OR INPUT TOO LARGE -~ R=? 
2. ‘CR’' == R2 = NUMBER 
OMMA' ~~ R2 = NUMBER 
PERIOD" ~~ R2 = NUMBER 


R4,-(SP) SAVE R4 

R3,-(SP) SAVE R3 

R2,-(SP) SAVE THE MAX. SIZE ON THE STACK 
Re START WITH O 


R4 

R5.CK.CHR :CHECK ONE CHARACTER 
:ILLEGAL_CHARACTER 
ZCARRIAGE RETURN 


o ° 
oft te 
. 


ee ek ed ee ed eed ed od 
WDBNAUSWNH—O 
Be Be Be Be Be Be Be Oe Be ee 


<8 
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-7 
#4 ,R5 ; RETURN POINTER PAST ‘'CR'’ & ‘PERIOD’ RETURNS 
R : NUMBER *2 
R3,-(SP) 
R3 


R3 3*8 
(SP)+,R3 3 (*#2)4(*8) = *10 
R2,R3 ;UPDATE THE INPUT NUMBER 
RS,CK.CHR ; CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 
> CARRIAGE RETURN 


e ° 
gee 6 


DIGIT 0-7 
:DIGIT 8-9 
;DOES A ‘'CR'' FOLLOW THE ‘PERIOD"’ 
BR IF NOT 
; INCREMENT THE RETURN 
; INCREMENT THE RETURN 
; INCREMENT THE RETURN 
;CHECK THE MAGNITUDE OF THE NUMBER 
BR IF ENTERED NUMBER TOO LARGE 
:BYPASS INCREMENT 
A rae RETURN PAST INVALID RETURN 
; INCREMENT RETURN 
TUP RETURN POINTER 
TENTERED VALUE 
CLEAN MAX. SIZE OFF OF STACK 
;RESTORE R3 
RESTORE R4 
GET ss ADDRESS 
; RETURN 


-SBTTL MACRO ROUTINES 


-SBTTL ERROR HANDLER ROUTINE 


pA RATER E EER EAE E EEE TEETER Rk tht 
7*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO TYPERR ON ERROR 
[*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
7*SW15=1 HALT ON ERR 
*SW13=1 ang M ERROR TYPEOUTS 
;*$W10=1 BELL ON ERROR 
;*SwO9=1 LOOP ON ERROR 
*CALL 
is N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERROR: 
;TEST FOR CHANGE IN SOFT-SWR 
tere MO R1,DDRIVE DRIVE ADDRESS IF DRIVE ERROR CALL 
001276 R3, ATIN ATTENTION REGISTER CONTENTS 
013737 001370 001270 FMTDPB+12, DS.CYL” ;CURRENT CYLINDER ADDRESS 





on 


E 4 
CZRJBCO, RPOG/5/6 FMTR MACY11 a. Ro gan by 10:25 PAGE 45 
CZRJBC.P11 20-MAR-78 10:22 RROR HANDLER ROUTINE 


113737 001367 001272 VB FMTDPB+11,0S.TRK ;REQUESTED TRACK ADDRESS 
5737 001312 T RP. REG+RPBA : NON a BUFFER ADDRESS ? 
$ F NO BUFFER ADDRESS 
001312 RP .REG+RPBA, acpi BUFFER ADDRESS 
00000. #2, (SP ;DECREMENT THE ADDRESS 
a(SP)+,$GDDAT sly THE BUFFER — WHICH DIDN'T COMPARE 
SERFLG T THE ERROR FLAG 
7$ DON'T LET THE FLAG A TO ZERO 
172070 MOV STSTNM,@DISPLAY : ‘DISPLAY TEST NUMBER AND ERROR FLAG 
#B1T10,aSWR +: BELL ON ERROR? 
1$ 3zNO - SKIP 
Messy :sRING ~_ 
$ERT ;COUNT THE NUMBER OF ERRORS 
(SP), ERRPC GET ADDRESS OF ERROR INSTRUCTION 


#2,SERR 

@SERRPC ,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
172020 #B1T13,aSWR ::SKIP TYPEOUT IF SET 

208 3:SKIP_TYPEOUTS 
‘soe ::GO TO USER ERROR ROUTINE 


° 


on 


aSwR ;:HALT ON ERROR 
3$ 73SKIP IF CONTINUE 
;;HALT ON ERROR! 
3; TEST FOR CHANGE IN SOF T-SWR 
3$: #B1T09,aSWR er ON ERROR SWITCH SET? 


IF NO 
SLPERR, (SP) ; FUDGE RETURN FOR LOOPI 


MOV NG 
4$: $SESCAPE [CHECK FOR AN ESCAPE ADDRESS 
5$ ::BR IF NONE 
013716 am SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
000002 ; : ;RETURN 


THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE 
;WHICH ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE ‘ERROR 
; TABLE’* (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 

; CONCERNING THE ERROR. 


TYPERR: SAVREG 3 SAVE RO-R5 
CLR RO :CLEAR RO FOR ERROR NUMBER 
$ITEMB,RO ;ERROR NUMBER 
o :FORM INDEX FOR ERROR TABLE 


RO 


RO 

#SERRTB,RO FORM ADDRESS 

(RO)+,2$ ;GET ERROR MESSAGE (EM) POINTER 
3$ ;BRANCH IF THERE ISN'T ONE 

- SCRLF :''CARRIAGE RETURN = LINE FEED 


0 :"'EM'’ POINTER GOES HERE 
(RO)+,4$ :PICK UP DATA HEADER (DH) POINTER 
5$ ;BRANCH IF NONE 

- SCRLF SCARRIAGE RETURN-LINE FEED 
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021035 
001167 
000002 
021035 
007366 


000004 
001167 


021035 
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21$: 


17$: 
20$: 


0 
(RO)+,R1 
208 


RS 
(RO)+,RO 
(RO)+,R2 
17$ 


R5 
~SCRLF 
(RO)+,R3 
(RO)+,R4 
R4 


12$ 
a(R1)+,-(SP) 
13$ 
@(R1)+,-(SP) 


-LINSP 
(RO)+,16$ 


0 

(RO) 
21$ 
#4,RO 
14$ 
-$CRLF 
R5 


10$ 
,LINSP 
10$ 


PC 


-SBTTL TYPE ROUTINE 


FERRARA EERE EAE AEA AAA REE EAA EERE 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 af 


:*THE ROUTINE WILL INSERT A NUMBE 
; *NOTE1: $ 

: *NOTE2: 
:*NOTES: 


ot 


;'DH'’ POINTER GOES HERE 

PICKUP DATA TABLE (DT) POINTER 
BRANCH IF NONE 

:SET INDENT SWITCH 

DATA FORMAT (DF) POINTER 
;NUMBER OF DHS TO TYPE 

BRANCH IF DH NUMBER IS 0 


; NO 
CARRIAGE RETURN-LINE FEED 
; NUMBER OF DATA WORDS TO TYPE 
;AND HOW TO TYPE THEM 
SOCTAL OR DECIMAL? 
;DECIMAL~-BRANCH 
7;SAVE @(R1)+ FOR TYPEOUT 
3;GO TYPE--OCTAL ASCIIC(ALL DIGITS) 


7;SAVE @(R1)+ FOR TYPEOUT 

3;GO TYPE--DECIMAL ASCII WITH SIGN 
sMORE NUMBERS TO TYPE? 

;NO=-BRANCH 

eo SEPERATORS 


‘MORE DH'S? 

;NO--BRANCH 

:YES=-START A NEW LINE 

ONLY A 'DH" IN THIS REQUEST ? 
:BR IF YES - BYPASS THE INDENT 
: INDENT? 

;NO--BRANCH 

7 YES--TYPE SPACES 

7GET NEXT DH 

AND TYPE IT 

:DH POINTER | GOES HERE 

dhig F A ‘DT’ 

7BR iF A "DT". 

: INCREMENT THE ‘DF* Ay 
7SEE IF END OF "DF" BLOCK 

: CARRIAGE RETURN-LINE FEED 


;NO--BRANCH 
:YES--TYPE SPACES 


zk 
;RESTORE RO-R5 
RETURN 


HARACTERS AFTER A LINE 


R OF NULL C FEED. 
NULL CONTAINS — CHARACTER ™ BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS T 


NUMBER OF FILLER CHARACTERS REQUIRED. 


HE 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
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105737 
100002 


171350 
000002 171342 
000015 000002 
007640 
000012 


20-MAR-78 10 
TYPE ROUTINE 


*CALL: 
ie) USING A TRAP INSTRUCTION 


TYPE 


;HORIZONTAL TAB 
8$: 
9$: 


BR 
STYPEC: 
BP 


G 4 
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,MESADR 


STPFLG 
1$ 


(RO) +,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 
8$ 
#CRLF , (SP) 


(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
nee 


2 
SNULL ,~ (SP) 
1(SP) 
6$ 
PC ,STYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#* ,(SP) 
PC ,$TYPEC 
#7 ,SCHARCNT 
9$ 


(SP)+ 
2s 


STYPEC 
2(SP) ,aSTPB 
+ cabal 


SCHARCNT 
STYPEX 
#LF ,2(SP) 


3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3:18 THERE A TERMINAL? 
7;BR IF YES 
7 aie IF NO TERMINAL 


ae RO 

:;GET ADDRESS OF ASCIZ STRING 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 
3;BR IF IT ISN'T THE TERMINATOR 

se1f TERMINATOR POP IT OFF THE STACK 


ORE RO 
: :ADJUST RETURN PC 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
7:TYPE A CR AND LF 


; CLEAR CHARACTER COUNT 


HARACTER 
IT TIME FOR FILLER CHARS.? 
::I1F NO GO GET NEXT CHAR. 
3IGET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 
; :DOES A NULL NEED TO BE TYPED? 
POP THE NULL OFF OF STACK 


PE A NULL 
3300 - COUNT AS A COUNT 


oe 


4434 wy TAB WITH SPACE 
23 TYP E A SPACE 

; ;BRANCH IF NOT AT 
3 STOP 


:;POP SPACE OFF STACK 
;:GET NEXT CHARACTER 
7:WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
e21 ge A CARRIAGE RETURN? 


AN 
+13 (eeu CHARACTER COUNT 
3:1S CHARACTER A LINE FEED? 





aon 
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007634 001402 
007636 105227 
007640 000000 
007642 000207 


H 4 
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BEQ STYPEX ey IF YES 
INCB (PC)+ ;COUNT THE CHARACTER 


SCHARCNT:.WORD 0 ;CHARACTER COUNT STORAGE 
STYPEX: RTS PC 


»SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ett Titi i iii rier et rite t it iit itii titi iii is! 
:STHIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT 

i ¥STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM ,- (SP) ;;NUMBER TO BE TYPED 
:;CALL_FOR TYPEOUT 
33N=1 on 8 FOR NUMBER OF DIGITS TO TYPE 


N 

M 37M=1 
3231=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


i ¥STYPON-=--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;*$TYPOS OR $T 
*CAL : 


MOV NUM, - (SP) ; NUMBER TO BE TYPED 
TYPON 3:CALL FOR TYPEOUT 


3* 
ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, ~ (SP) ; NUMBER TO BE TYPED 
TYPOC 7:CALL FOR TYPEOUT 


a(SP),-(SP) :;PICKUP THE MODE 

1(SP), SOF ILL 3;LOAD ZERO FILL SWITCH 
:sNUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 
4h} THE ZERO FILL SWITCH 
: DIGITS 


T FOR S1X(6) 
iiSET THE ITERATION COUNT 


: E RS 
SIGET THE NUMBER OF DIGITS TO TYPE 
Srey IT FOR MAX. ALLOWED 

7SA " IT FOR USE 

T THE ZERO FILL SWITCH 
— INPUT 1A 

7 ;ROTATE MSB INTO ‘'C’' 
3;G0 DO MSB 
7 FORM THIS DIGIT 


3;GET LSB OF THIS DIGIT 
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105337 010070 SOMODE 22 TYPE THIS DIGIT? 
100016 7$ R_IF NO 
177770 #177770,R3 :3GET RID OF JUNK 
4$ ST FOR 0 

; | SUPPRESS THIS 0? 

oe R IF YES 
;;DON'T SUPPRESS ANYMORE 0'S 
7sMAKE THIS DIGIT ASCII 
3sMAKE ASCII IF NOT ALREADY 
7;SAVE FOR TYPING 
2360 ys THIS DIGIT 


;COUNT BY 1 
BR IF MORE TO DO 
DONE 


:BR IF 
3: INSURE LAST DIGIT ISN'T A BLANK 
:GO DO — DIGIT 


RESTORE R3 
° 7:SET THE STACK FOR RETURNING 
(SP)+, (SP) 
3 RETURN 


8$: 3sSTORAGE FOR ASCII DIGIT 
3; TERMINATOR FOR TYPE ROUTINE 

SOCNT: YTE TER 

SOFILL: .BYTE 0 33 WITCH 

SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 

-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUT INE 


RRR EERE REE REET ETA R AA EARERAAERER EEE 
:STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
7*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR gs gt'y A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
aie WITH SPACES. 


NUM, = (SP) ;;PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


STYPDS: 
RO,-(SP) 7:PUSH RO ON STACK 


020200 
000020 


000055 
010306 
000040 


; SETUP T POINTER 
ISET THE FIRST CHARACTER TO A BLANK 
; R2 :CLEAR THE BCD NUMBER 
010276 SOTBL (RO) ,R1 :3GET THE CONSTANT 
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3$: R1,R5 :;FORM THIS BCD DIGIT 
4% ;;BR_ IF DONE 
R2 +; INCREASE THE BCD DIGIT BY 1 


3$ 

4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 
R2 +s CHECK IF BCD DIGIT=0 
5$ ;FALL THROUGH IF 0 
(SP) iE STILL DOING LEADING 0'S? 
7$ ;:BR IF YES 
(SP) 33MSD? 


6$ 77;BR IF NO 
000001 177777 1(SP) ,-1(R3) 3: YES@SET THE SIGN 
000060 6$: #'°O,R2 i soe THe BCD DIGIT ASCII 
000040 : #° ,R2 33 MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB ;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
33 +: JUST INCREMENTING 
000010 7 ;CHECK THE TABLE INDEX 
2$ 3:GO DO THE NEXT DIGIT 
::G0 a EXIT 
3:GO CHANGE TO ASCII 
$$ ee | THE FIRST NON-ZERO? 
177777 | 177776 -1(SP) ,-2(R3) :sYES-~SET THE SIGN FOR TYPING 
9$: (R3) 33 TERMINATOR 
(SP)+,R5 3;POP 
(SP)+,R3 3 ;POP 
(SP)+,R2 33POP 
(SP)+,R1 7;POP STACK INTO R1 
(SP)+,RO : POP 1. INTO RO 


, SDBLK ;NOW TYPE THE NUMBER 
2(SP) ,4(SP) 7 ;ADJUST THE STACK 


(SP)+, (SP) 
7 RETURN TO USER 
SDTBL: 


$SDBLK: 
-SBTTL TTY INPUT ROUTINE 


FERRARA EERE REE EEE EERE EEE EEE EEE REE EERE EERKEREEKEH 


: ;NUMBER OF ITEMS IN QUEUE 
POINTER 


000000 
010324 000007 $TKQSRT: :BLKB 7 SETTY KEYBOARD QUEUE 
ee 


3*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 
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JSR PC, STKINT 
RETURN 


010316 .. STKCNT CLEAR COUNT OF ITEMS IN oY 
010320 * M0 #STKQSRT,STKQIN 3 MOVE THE STARTING ADDRESS OF THE 
010322 STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & ouTPUT POINTERS. 
000060 #STKSRV ,A#TKVEC : INITIALIZE THE KEYBOARD VECTOR 
000062 #200 ,a#TKVEC+2 23 BR R’* LEVEL 4 

2CL LEAR” DONE FLA 


ek oe] 


117746 
2716 


170536 
177600 
000003 


011517 
010334 
170640 
000007 


000176 


000007 
001162 


000023 
170434 
170426 
170422 
177600 
000021 
000100 
010316 
000140 
000175 
000040 


170542 


001140 


010316 


asTkB 
#100 ,a$TKS 
PC 


:*TK SERVICE ROUTINE 
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


:*1T I 


AG 
ZSENABLE TTY KEYBOARD INTERRUPT 
; RETURN TO CALLER 


N THE QUEUE. 
:*IF THE CHARACTER IS A "*CONTROL=C*’ (*C) STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL~C** RESTART ADDRESS (@CNTLC) 


$TKSRV: MOVB 
BIC 


a$TkB,-(SP) 
#°C177, (SP) 
(SP) ,# 


#3 


-SCNTLC 
PC ,STKINT 
(SP)+ 
acNTLc 

§ las 


2 
#SWREG, SWR 
6$ 


#7, STKCNT 
3$ 


a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,#21 
31$ 

#100, a$TkS 


STKCNT 
(SP) ,#140 


(SP) ,#175 
#40, (SP) 


+ ¢PICKUP THE CHARACTER 
THE JUNK 


CH IF NO 
z;TYPE A CONTROL-C (“C) 
3; INIT THE KEYBOARD 


CH IF NO 
3721S SOFT-SWR SELECTED? 
3:GO TO SWR CHANGE 


2315 THE QUEUE FULL? 
IF NO 


; BELL 
ice CHARACTER OFF OF STACK 


XIT 

3318 IT A_CONTROL~S? 
:BRANCH IF NO 

; ;DISABLE TTY oF coarse INTERRUPTS 
CLEAN CHAR OFF STACK 

SIWAIT FOR A CHAR 

; ;LOOP a AL. — 


CH IF NO 
os TTY KEYBOARD INTERRUPTS 

COUNT THIS CHARACTER 
::1S IT UPPER CASE? 
: BRANCH IF YES 
21S IT A SPECIAL CHAR? 
;;BRANCH IF YES 
;:MAKE IT UPPER CASE 
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010572 112677 177522 4$: (SP)+,@$TKQIN 

010576 005237 010320 STKQIN ; UPDATE THE POINTER 

010602 023727 010320 010333 STKQIN, #STKQEND +360 OFF THE END? 

010610 001003 BNE 5$ ;BRANCH_IF NO 

010612 012737 010324 010320 #STKQSRT,STKQIN ; RESET THE POINTER 
10620 000002 URN 


SEQ 0050 
7;AND PUT IT IN QUEUE 


RRA RAA EAA A TRAE AA AA ARATE T ATTA A TAA RATER ARATE ARR 
: RSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANOLER, WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SUITCH REGISTER TRAP 
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


om 


022737 000176 
170306 


170302 
177600 
000007 


123727 001134 
001674 
005726 
004737 010334 
005077 170244 
112737 000001 
011531 
011536 
000176 
011547 
010734 170204 
010740 
010742 170200 
010746 177600 
000003 
011517 
000006 
001135 


000100 
170266 


010752 


$CKSWR: CMP 
BNE 


+ eaten 
asTKs 

15$ 
a@$TKB,-(SP) 


#*C177, (SP) 
(SP) #7 
2$ 


31S THE SOFT-SWR SELECTED 
te gl IF NOT 

7:18 A CHAR WAITING? 

331F NOT, EXIT 


s3VE 

s:MAKE IT 7-BIT ASCII 

z:1S IT A CONTROL-G? 

33 1F NOT, PUT IT IN THE TTY QUEUE 
3:AND EXIT 


pL RRR RARER EEE REAR E TERETE TERE EAE AR RARER REE 
:*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 

jsCONTROLG BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


T 
SGTSWR: 


19$: 
7$: 


(SP)+ 
PC ,STKINT 
asTKs 
#1 ,SINTAG 


-SCNTLG 

- SMSWR 
SWREG,-(SP) 
- SMNEW 
-(SP) 


-(SP) 
asTKs 
7$ 


a$TKB,-(SP) 
#°C177, (SP) 
(SP) ,#3 
SSCNTLC 
#6,SP 
SINTAG, #1 
8$ 
#100,a$TKS 
a@cNTLC 


7:ARE WE RUNNING IN AUTO-MODE? 
; BRANCH IF YES 
eect LEAR CONTROL-G OFF STACK 

LUSH THE TTY INPUT QUEUE 
DISABLE TTY KEYBOARD INTERRUPTS 
::SET INTERRUPT MODE INDICATOR 


+ sECHO THE CONTROL=G (“*G) 


THERE? 
F NOT TRY AGAIN 


::PICK UP CHAR 
3;MAKE IT 7-BIT ASCII 


z:IS ITA a 

: ;BRAN NCH IF NO 

i YES, ECHO CONTROL=C (*C) 
EAN UP STACK 


Ss 
 : REENABLE TTY KEYBOARD INTERRUPTS? 
; BRANCH IF NO 
:;ALLOW TTY KEYBOARD INTERRUPTS 
::CONTROL-C RESTART 
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2635 011012 
2636 011016 
2637 011020 
2638 011024 
2639 1030 
2640 
2641 
2642 011032 
2643 011036 
2644 011040 
2645 011044 
2646 011046 
2647 011054 
2648 011 
2649 011 
2650 011072 
2651 011074 
2652 011102 
2653 011104 
2654 011110 
2655 011114 
2656 011116 
2657 011122 
2658 011124 
2659 011130 
2660 011134 
2661 011136 
2662 011140 
2663 011142 
2664 011144 
2665 011150 
2666 011154 
2667 011156 
2668 011162 
2669 
2670 
2671 
2672 
26 
2674 
2675 
2676 
2677 
2678 
2679 
2680 011164 
2681 011166 
2682 011174 
2683 011200 
2684 011202 
2685 011206 
2686 011210 
2687 011210 
2688 011214 
2689 011216 
2690 011222 


000025 
011524 
000006 


170064 


000001 
170042 


000060 
000002 


000002 
177776 
001166 


000004 
000004 


011210 


000002 


010316 


010316 
177074 000004 


4 
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9$: CMP 
BNE 


208: ADD 


17$: INC 


BR 
18$: TYPE 

BR 
-DSABL LSB 


(SP) ,#25 
108 


15 
#100,a$TKS 
PC ,STYPEC 
(SP) ,#60 


ge 


2(SP) 
~2(SP), (SP) 
7$ 

SQUES 


208 


SEQ 0051 


31S IT A CONTROL-U? 

; ;BRANCH IF NOT 

7;YES, ECHO CONTROL-U (“U) 
:; IGNORE PREVIOUS INPUT 
3;LET'S TRY IT AGAIN 


7:18 IT A <CR>? 
> BRANCH IF NO 
77YES, IS IT THE FIRST CHAR? 
7 :BRANCH IF YES 


AND <LF> 
3; ;RE-ENABLE A KBD INTERRUPTS? 
Lh a TTY KBD INTERRUPTS 


7 BRANCH IF YES 
3;BRANCH IF HS 
33 “OFF ASCII 
3231S THIS THE FIRST CHAR 
oe a IF YES 
NO, oo op PRESENT 
3: CHAR OVER TO MAKE 


3 ROOM FOR NEW ONE. 
3: sKEEP COUNT OF CHAR 


:;SIMULATE CONTROL-U 


FEAR AEA ERE REA EAE EAA EAA AEA EAE EEE EEKEEEE 


é RDCHR 

3* RETURN HERE 

3* 

SROCHR: MOV (SP) ,-(SP a. 
MOV 4(S 4, e(SP 
CLR wei oe 
CLR 
MOV 7625. -(SP) 
RTI 

64$: 

1$: TST STKCNT 
BEQ 1$ 
DEC STKCNT 
MOVB @$TKQOUT,4(SP) 


ZATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:;GET A CHARACTER 4~ gl tad —— 
:;CHARACTER IS ON THE S 
:sWITH PARITY BIT STRIPPED OFF 


: :PUSH — THE PC AND 


3;;GET READY FOR A_ CHARACTER 


:;PUT NEW PC ON STACK 
:;POP NEW PC AND PS 


:;WAIT ON A CHARACTER 


;;DECREMENT THE COUNTER 
::GET ONE CHARACTER 


Om 
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005237 010322 INC $TKQOUT ;;UPDATE THE POINTER 
023727 010322 010333 CMP STKQOUT ,#STKQEND "3 3D1D _ GO OFF OF THE END? 
001003 BNE $ F NO 


am 


011244 
011252 


177777 
011510 


011506 
011506 


000134 
011506 


000025 
011524 
000022 
001167 
011510 
001166 
011506 
011506 
000015 


177777 
001170 


012737 010324 010322 MOV 
000002 23: RTI 


7 *CALL: 
RDLIN 
RETURN HERE 


H I 
#STKQSRT, $TKaoUT’ i; RESET THE POINTER 


FF REAR AAREAAAAAA REA ATER AEA AEE AEE AERA AREER EEEEEEEERKEEHE 


3*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


R3,-(SP) 
-(SP) 


#STTYIN,R3 
+ tam 


(SP)+, (R3) 


#177, (R3) 
5$ 

(SP) 

6$ 
#'\,9$ 
9 

#-1, (SP) 


R 
R3,.#STTYIN 
4$ 


(R3) ,9$ 
9$ 
$ 
(SP) 
7$ 
#'\,9$ 
9$ 
(SP) 
#25, (R3) 
8$ 
»SCNTLU 
#22, (R3) 
3$ 
(R3) 
-SCRLF 
$TTYIN 
a$ 
, SQUES 
1$ 
(R3) 9% 
#15, (R3)+ 
-1(R3) 
SLF 
(SP)+ 


3; INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 


23 SAVE R3 
:CLEAR THE RUBOUT KEY 
3 GET ADDRESS 
;;BUFFER FULL? 
338 BR IF YES 
:GO READ ONE CHARACTER FROM THE TTY 
SIGET CHARACTER 
2315 IT A RUBOUT 


:BR IF NO 
3318 oa THE FIRST RUBOUT? 
7:TYPE A BACK SLASH 


:3SET THE RUBOUT KEY 
;BACKUP BY ONE 
3 ESTACK EMPTY? 


IF YES 
: SETUP a TYPEOUT THE DELETED CHAR. 
+:GO READ ANOTHER CHAR. 

::RUBOUT KEY SET? 


:3;BR_IF NO 
:;TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
2315 CHARACTER A CTRL U? 


:BR_IF NO 
7: TYPE A CONTROL ‘U" 
::GO START OVER 
3:18 CHARACTER A ‘“*R’’? 
;:BRANCH IF NO 
+;CLEAR THE ete 


T NPUT STRING 
WP ANOTHER CHACTER 


$I CLEAR THE BUFFER AND LOOP 
3;ECHO THE CHARACTER 


: > CHECK FOR RETURN 
;LOOP IF NOT RETURN 
2: CLEAR RETURN (THE 15) 
;TYPE A LINE FEED 
CLEAN RUBOUT KEY FROM THE STACK 
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011554 


011620 


060004 
011510 


000004 


000060 


011610 


011650 


B 5 
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(SP)+,R3 7 RESTORE R3 
(SP) ,=(SP) : ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
#STTYIN,4(SP) 

3 ;RETURN 


9$: é 0 3;STORAGE FOR ASCII CHAR. TO TYPE 
’ 0 3; TERMINATOR 
STTYIN: 7 His be tg 7 ” ee FOR TTY INPUT 
: /*C/<15><12> TROL ‘ 
/*U/<15><12> :3 OL 
/*G/<15><12> 53 4 # 
SMSWR: “ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ / NEW = / 


-SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


DASARI EIS Rint hittt 
;*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;*LEADING NUMBERS. 

7*CALL 

;* #NUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
7* PC ,a#SSUPRS 


SSUPRS: RO,-(SP) ;SAVE RO 
MOV 4(SP),RO PICKUP THE POINTER 
1$: (RO) i at elk ely 


2$ :BR IF YES 
#°0,(RO)+ i:1S THIS AN ASCII ‘0'' ? 
1$ 7:BR IF YES 
es: - RO 3 BACKUP BY °I"' 
RO,3$ £60 Ty sy TYPING 


3$: 0' 2 3ASCIZ POINTER GOES HERE 
MOV (SP)+,RO TORE RO 
(SP)+, (SP)  ERESTORE THE STACK 
PC 3 ;RETURN 


-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


RRR ERATE EERE EERE ERR EE 
SRTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
:*UNSIGNED DECIMAL ASCIZ NUMBER. 


3 *CALL 
; MOV NUMBER , -(SP) + 3PUT BINARY NUMBER ON THE STACK 
JSR PC ,a#$SB2D 7 CALL 
RETURN :;ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


2(SP),1$ ;;SAVE BINARY NUMBER 
#1$,~-(SP) :;SET POINTER 

PC ,a#$D0B2D he DOUBLE LENGTH CONVERT 
#5, (SP) Y ALLOW FIVE CHARACTERS 
(SP)+,2(SP) + PICKUP POINTER 
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011646 000207 
011650 000000 


011654 


012012 


000002 
012034 
000002 


000012 -011752 
011764 
011766 
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RTS PC 3; RETURN 
1$: -WORD 0,0 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


fp ERR RRA A REAR AAA ERAT EAA A TATE ETAT ETRE TATRA AREA RETA 
3*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


et 
** 
;* MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
JSR PC ,a#$DB2D 
RETURN 3; THE FIRST ADDRESS OF ASCIZ 
3771S ON THE STACK 


SAVREG Ad op REGISTERS 
MOV 2(SP) ,R2 PICKUP THE DATA POINTER 
#SDECVL RO ::GET ADDRESS OF ‘‘SDECVL'' STRING 
3;PUT ADDRESS OF ASCIZ STRING ON STACK 
;:PICKUP THE BINARY NUMBER 


3;SET UP TO DO 10 CONVERSIONS 
;:ADDRESS OF TEN POWER 


#STNPWR+2,R5 

R3 37;CLEAR PARTIAL 

or 3; SUBTRACT TEN POWER 

(R5) ,R2 

3$ 7:BR IF TEN POWER TO LARGE 
R3 +3 ADD 1 TO PARTIAL 


2s ; LOOP 
aia :;RESTORE SUBTRACTED VALUE 


(R4)+,R2 
(R5)+,(R5)+ ::;MOVE TO NEXT TEN POWER 
#'0,R3 : SCHANGE PARTIAL TO ASCII 


; ;DONE? 


MINATOR 
oe REGISTERS 


331.0E08 
331.0€07 
731.0E06 
3;1.0€05 
331.0E04 
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2859 331.0€03 
2860 000000 
331.0E02 
331.0E01 
- 331.0E00 
SDECVL: .BLKB Te 7 ;RESERVE STORAGE FOR ASCIZ STRING 
-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


DD aero non ni nioniiiiitititiiit 
3 *SAVE RO-R5 
>*CALL: 


2@ 


SAVREG 
; UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


eTOP===(+16) 
z* +2---(+18) 
z* +4=---R5 
3* +6---R4 
3% +8---R3 
3*+10---R2 
3*+12-=--R1 
3*+14---R0 


012050 SSAVREG: 
MOV 


RO,-(SP) 3 STACK 


22(SP) ,-(SP) 


;*RESTORE RO-R5 
*CALL: 


ted RESREG 
SRESREG: 
MO (SP)+,22(SP) SE TORE PC OF CALL 
(SP)+,22(SP) RESTORE PS OF CALL 
(SP)+,22(SP) ;RESTORE PC OF MAIN FLOW 
(SP)+,22(SP)  ERESTORE PS OF MAIN FLOW 
+ POP STACK INTO R5 


(SP)+,RO ;;POP STACK INTO RO 
012142 





On 
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012144 


006300 
016000 012200 
000200 


012176 


012212 
012214 
012216 


012226 
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-SBTTL TRAP DECODER 


eri tis iii iii itil iii r iii rir iri iti iii iit ititiri titi. 
TTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 3;SAVE_ RO 
MO + 3GET TRAP ADDRESS 
KUP BY 2 


A 
: GET RIGHT BYTE OF TRAP 
;POSITION FOR INDEXING 
# INDEX TO TABLE 


R 
STRPAD(RO) ,RO 
RO :GO TO ROUTINE 


3;THIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 


$STRAP2: MOV (SP) ,-(SP) 3;:MOVE THE PC DOWN 
4(SP) ,2(SP) :;MOVE THE PSW DOWN 
RTI 2 zRESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
[*BY THE ‘'TRAP’’ INSTRUCTION. 

: ROUT INE 
$TRPAD: STRAP2 

b 3 3: CALL=TYPE 

+: CALL=TYPOC 
+ :CALL=TYPOS 
+: CALL=TYPON 
STYPDS ;;CALL=TYPDS 


SGTSWR ;;CALL=GTSWR 


SCKSWR 22 CALL=CKSWR 
SRDCHR ;;CALL=RDCHR 
SRDLIN ;;CALL=RDLIN 
SSAVREG * TCALL= SAVREG 
SRESREG ;;CALL=RESREG 


TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


TRAP+6(104406) GET SOFT-SWR SETTING 


TRAP+7(104407) TEST FOR CHANGE IN SOF T~SWR 
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) SAVE RO-R5 ROUTINE 
TRAP+13(104413) RESTORE RO-R5S ROUTINE 


-SBTTL SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976 

:DIGITAL EQUIPMENT CORP. 
;MAYNARD, MA 01754 

;AUTHOR(S): JIM LACEY/CHUCK HESS 


STARR ARR ER EEE EE EEE REEEREEEER ERE EERE 





om 
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2971 ; STORAGE FOR RPDS1, RPER1, RPER2, AND RPER3 ON AN ERROR ‘'2"' 

2972 sRPERRS — = RPDS1 

2973 sRPERRS+2 = RPER1 

2974 ;RPERRS+4 = RPER2 

2975 sRPERRS+6 = RPERS 

2976 


2977 012230 000000 000000 000000 RPERRS: .WORD 0,0,0,0 
pad 012236 000000 


2980 ; TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
2981 ;DRVACT=0 IF DRIVE IS IDLE 
2982 ;DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
2983 ;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
2985 012240 000 DRVACT: .BYTE 0 sDRIVE 0 
2986 012241 000 -BYTE O sDRIVE 1 
2987 012242 000 BYTE 0 sORIVE 2 
012243 -BYTE 0 sDRIVE 3 
2989 012244 000 -BYTE O sDRIVE 4 
012245 BYTE 9 sDRIVE 5 
2991 012246 000 -BYTE 0 sDRIVE 6 
44 012247 000 -BYTE 0 sDRIVE 7 
2994 ; TABLE OF lbs, STATUS INDICATORS (DRVSTA=8 BYTES) 
2995 sDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
2996 ‘DRVSTADO IF DRIVE IS ONLINE 
2997 ;DRVSTA<O IF DRIVE IS UNSAFE 
2999 012250 000 DRVSTA: .BYTE 0 DRIVE 0 
3000 012251 000 -BYTE 0 :DRIVE 1 
3001 012252 000 -BYTE 0 sDRIVE 2 
3002 012253 000 -BYTE 0 sORIVE 3 
3003 012254 000 -BYTE 0 sDRIVE 4 
012255 000 -BYTE 0 sORIVE 5 
3005 012256 000 -BYTE 0O :DRIVE 6 
3006 012257 000 -BYTE 0 sDRIVE 7 
3007 
3008 


; TABLE OF ORVIVE TYPES (DRVTYP=8 BYTES 


3009 P=0 IF DRIVE IS NOME XISTENT (DRVSTA=0, ALSO) 

3010 :DRVTYP=1 IF DRIVE IS RPO4 

3011 SDRVTYP=2 IF DRIVE IS RPOS 

3012 SDRVTYP=4 IF DRIVE IS RPO6 

Sorz sDRVTYP=-1 IF NOT RPO4/5/6 

3015 012260 000 DRVTYP: .BYTE 0O DRIVE 9 

3016 012261 000 -BYTE 0O DRIVE 1 

3017 012262 -BYTE 0O DRIVE 2 

3018 012263 000 -BYTE 0 DRIVE 3 

3019 012264 -BYTE 0 DRIVE 4 
012265 000 -BYTE 0 DRIVE 5 

3021 012266 000 -BYTE 0 DRIVE 6 

358 012267 000 -BYTE 0O DRIVE 7 

3024 TABLE OF DUAL PO ATION INDICATORS 


RT INITIALIZ 
3025 sDPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
3026 ;DPINT<O IF INITIALIZATION IS IN PROGRESS 


om 
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3027 
3028 DPINT: .BYTE 
3029 BYTE 


ooooo°0o°0oo 
NOUSWN Oo 


: DRIVE 
; TABLE OF A not DUAL PORT REQUESTS 
QS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
‘ DPRAS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: 


ooCcoo°o°o°o 


; TRANSFER WAIT o (TRNSWT=1 WORD) 
sTHIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;'DPB'' OF THE I/O OPERATION. 


012310 TRNSWT: .WORD 0 


SEARCH WAIT KEYS (SRCHWT=1 WORD) 
:THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
;REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 


012312 SRCHWT: .WORD 0 


3RP04/5/6 pl bn ACTIVE FLAG (ACTDRV=1 BYTE) 
sACTDRV=0 IF DRIVER IS INACTIVE 
ZACTDRV>O IF DRIVER IS ACTIVE 


012314 ACTDRV: .BYTE 0 


; SOF TWARE tate ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
PACTS TROO IF SOFTWARE TIMER ROUTINE IS ACTIVE 


012315 ACTSTR: .BYTE 0 


;UNLOAD FLAG (ULDFLG=8 BYTES) 
;ULDFLG=0 IF NO UNLOAD COMMAND 
;ULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 


ULDFLG: .BYTE 0Q sDRIVE 0 
-BYTE 0 ;DRIVE 1 
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012320 sDRIVE 2 
. ;DRIV 


012325 


;LOOK AHEAD COUNT (LACNT=8 BYTES) 
sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


012326 LACNT: 


NOUSWMN Oo 


0123 . 3 
012335 DRIVE 
;SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
sSAVEFG <O IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE 
[OPERATION IS COMPLETED AS PER (D 4). 


PB+1 
TSAVEFG=0 IF SAVE THE RH11/RP04/5/6 REGISTERS, AS PER 
3 (DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


SEEK FLAG Sony ae get WORD ) 
;SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
{POR A DATA TRANSFER START A SEARCH COMMAND 
7SEEKFG<O IF DATA TRANSFER WILL D0” IMPLIED SEEKS, 
:DISREGARD THE WINDOW 


SEEKFG: .WORD 0 


; TIMEOUT TABLE (TIMER=8 WORDS) 
7 THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


ee ed aed od ed od od = 
WONAOULRWN—O 


177777 TIMER: 


177777 ° DRIVE 


:DATA taps te UNDERWAY INDICATOR (DTUW=1 — 
UW<O IF NO DATA TRANSFER UNDERWA 
‘DTUWS#N (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


177777 DTUW: .WORD ~-=1 
ocr * the TABLE (ATABIT=8 BYTES 


TABLE CONTAINS THE CORRE SPONDING BIT TO EACH DRIVES 
:ATTENTION BIT 





ed oe] 
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On 


ATABIT: 


012373 DRIVE 


;RP04/5/6 TO RH11 ‘MASSBUS CONTROL BUS PARITY ERRORS'' (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


012374 MCPEMX: .WORD 3 


STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RP04/5/6), 
sRPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)). 


012376 176700 RPADR: .WORD 176700 
012400 000254 RPVEC: .WORD 254,5*32. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


012404 MXLACT: .WORD 4 
MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


012406 MXDLTA: .WORD 8.+*64. 
s;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


012410 MNDLTA: .WORD 264, 
s;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 


012412 MXWNDW: .WORD 5 
DEFINITIONS OF THE RH11/RP04/5/6 ADDRESS INDEXES 


RPCS1=0 CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
: WORD COUNT REGISTER (NOT p. aris REG) 
UNIBUS ADDRESS REGISTER ( A DRIVE REG) 
DESIRED SECTOR/ TRACK ADDRESS gt de (DRIVE REG. 05) 
TROL AND STATUS REGISTER #2 ( A DRIVE REG) 
SDRIVE STATUS REGISTER (DRIVE REG NO) 
ERROR REGISTER #1. (DRIVE REG. 02) 
;ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
;LOOK AHEAD REGISTER (DRIVE Ba 
:DATA BUFFER REGISTER (NOT A DRIVE REG 
:MAINTAINABILITY REGISTER (DRIVE REG. 63) 
DRIVE TYPE REGISTER (DRIVE REG. 06) 
SERIAL NUMBER REGISTER (DRIVE ae 10) 
SOFFSET REGISTER (DRIVE REG. 
:DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
seen asiitten a with | a} iat bg (DRIVE REG. 13) 


N'NAIWNIAINNWNA 
ed ed ed ced cee eed aed eed eed 
RANLESELE 


CC POSI 
RPEC2=46 TECC PATTERN REGISTER (DRIVE REG. 17) 
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;RH11/RP04/5/6 DRIVER INITIALIZATION CODE 
THIS ROUTINE WILL DETERMINE WHICH RPO04/5/6 DRIVES ARE 
SAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;TO THE PROPER STATE FOR EACH DRIVE. 
SNOTE: THIS ROUTINE CALLS DRVINT 


JSR PC,RPINIT 
RETURN 


SNOTE: THE 'P* OR ‘L" CLOCK MUST BE STARTED 


012414 RPINIT: SAVREG :SAVE RO = RS 
177776 MOV a#Ps ,-(SP) SSAVE THE PRESENT PROCESSOR STATUS 
000240 177776 #<5%32.>,a#PS | :CHANGE THE PRIORITY TO 5 
020400 PC, CLRQUE :CLEAR ALL REQUEST QUEUES 
612230 #RPERRS,R1 : 0 BE CLEARED 
012340 #SEEKFG.R2 [LAST ADDRESS TO BE CLEARED 
(R1)¢ CLEAR 
R1,R2 TARE WE DONE? 
1$ [BRANCH IF NO 


012362 #0TUW,R2 LAST ADDRESS 
177777 : #-1,(R1)+ a 


;LOOP IF NO 
012250 DRVSTA SET ALL DRIVES TO OFFLINE 
DRVSTA+2 
DRVSTA+4 


SETUP THE RH11/RP04/5/6 VECTOR 


RPVEC 2, (R3) 
:FIRST ADDRESS OF RH11/RPO4 
Se trS RPCS2(R4)° ;MASSBUS INIT 
R :START WITH DRIVE 0 
012626 : RO, DRVINT SINIT THE DRIVE 
4$ :"DVA' NOT SET OR PARITY ERROR 
BR S$ [NORMAL RETURN 
012250 : DRVSTACR1) SET DRIVE STATUS TO OFFLINE 


: R 
177770 #°°7,R1 
3$ 


000007 #7,R1 3 7 
177776 CL a#vPs :CLEAR THE PROCESSOR STATUS 
012270 : DPINT(R1) SWAITING FOR DRIVE TO SWITCH PORTS ? 
8$ :BR_NOT WAITING 
020034 PC,SET.IE SET INTERRUPT 
012270 t -* DPINT(R1) :DRIVE SWITCHED PORTS ? 
BNE 7$ :BR IF NO 
R1 :GO TO THE NEXT DRIVE 
6$ CHECK NEXT DRIVE 
177776 MOV (SP)+,a#PS RESTORE THE PROCESSOR STATUS 
;RESTORE RO - R5 
012624 T PC BYE-BYE 
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012626 010546 
0126 105061 012250 
012260 
012316 
000010 
000111 
010000 
020034 
012250 
004000 


017344 


000001 
020020 
024020 
000002 012260 
020021 
024021 


000004 012260 
020022 


024022 
177777 012260 


000121 
017524 


010000 
017524 
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; DRIVE TOTALS ROUTIN ROUT INE 


DRVINT: 
C 


21S _SE 
INSURE THEY ARE ALL ON A 
SDRVSTA IS SET TO THE PROPER CONDITION. 


;DRIVE NUMBER TO R1 


#ORVNUM ,R1 
RPADR ,R4 
RO,DRVINT 


R5,-(SP) 
DRVSTACR1) 


#111,RPCS1(R4) 


#BITI2,RPCS2(R4)- 


1$ 
ny -SET.iE 
DRVSTA(R1) 


#B1T11, RPCS1(R4) 
7$ 


RO,RD.RP 


(SP)+,R5 
#1 ,DRVTYPC(R1) 
#2002 


2$ 

#24020,R5 

2s 

#2, ,DRVTYP(R1) 


#20021 ,R5 

2$ 

#24021 .RS 

#4 ,DRVTYP(R1) 


#20022 ,R5 
2$ 
#24022,R5 


#-1 ,DRVTYP(R1) 
6$ 

#121,-(SP) 
RO,WRT.RP 


#B1T12,-(SP) 
RO,WRT.RP 


oy Tis A IF A DRIVE EXIST AND IF IT IS 


"READ-IN PRESET" - ISSUED AND FMT22 
7.,2PR, DRY, AND VV ARE CHECKED TO 
4°". AND DEPENDING ON THEIR STATE, 


; UNIBUS ae OF RH11/RP04/5/6 (RPCS1) 
CALLED BY A JSR 

; ERROR OCCURRED (PARITY) 

;NORMAL RETURN 


7SAVE_R5S 


START DRIVE STATUS AS OFFLINE 
:CLEAR THE DRIVE TYPE INDICATOR 
EAR THE UNLOAD FLAG 


sc 

SELECT A DRIVE 
D0 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
sNONEXISTENT DRIVE? 
;NO=--BRANCH 
3GO SET “‘IE** WITHOUT A ‘'TRE’’ 
;LEAVE THIS ROUTINE 

SET DRIVE STATUS TO OFFLINE 

i IF DRIVE AVAILABLE 

R IF DRIVE NOT AVAILABLE 
TREAD THE DRIVE TYPE REG. 


sERROR RETURN ADDRESS 


PUT DRIVE as # IN R5 
3SET RPO4 INDICATOR 
71S Bi "A SINGLE PORT RPO4? 


;BRAN 

S IT A DUAL PORT RPO4? 
TBR IF YES 

3SET RPOS INDICATOR 


SINGLE PORT RPOS ? 


:BR IF YES 
;DUAL_PORT RPOS ? 
:BR IF YES 

:SET RPO6 INDICATOR 
SINGLE PORT RPO6 ? 


:BR IF YES 


Ne a RPO6 ? 
4H INDICATOR TO ‘OTHER* 


D0 A ''READ-IN PRESET’’ 


SET FMT22=1 





On 
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017344 JS RO,RD.RP ;READ RPDS1 


(SP)+,R5 sAND SAVE IT_IN RS 

4 :BRANCH IF ATA=0 
ATABIT(R1), npas cha) ;CLEAR ATTENTION BIT 
RO,RD.RP FIND OUT WHY ATA=1 


(SP)+ :1S IT UNSAFE? 
4$ :BR_IF NOT 
177777 +=012250 es” -DRVSTA(R1) xT INDICATOR 


: R5 HECK MOL, ws DRY, AND VV 
167077 #2c<B1T121B1708:811071B1T06>, 
BN :BRA F MOL, DPR, DRY, OR VV IS CLEAR 
000001 012250 #1,DRVSTACR1) ;SET NDRIVE STATUS TO ONLINE 
a” :STEP OVER THE ERROR RETURN 


sEXIT 
: ; CHANGE se by ADDRESS WORDS 
003720 012342 #2000. ,TIMER (RID i. Le 2 SEC TIMER 


i 
012270 OMB yr so hgag ;SET PORT INITIALIZE INIDICATOR 
+ 


0131 8$: (SP)+,R5 sRESTORE R5 
013162 000200 RO sEXIT 


;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
CALL 


JSR RO ,a#RP04 ;CALL_THE RPO4/5/6 DRIVER 

PNTADR ADDRESS OF POINTER OF yin PARAMETER BLOCK 

RETURN1 RETURN HERE IF QUEUE IS FUL 

RETURN2 RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
1S AN ERROR CONDITION 


013746 177776 RPO4: a#PS ,-(SP) SAVE THE ey STATUS 
012402 177776 RPVEC+2 ,a#PS ;DON'T ALLOW RP04/5/6 INTERRUPTS 
000001 012314 MOVB #1 ,ACTDRV 4 yh ay DRIVER’ FLAG 


PICKUP THE DRIVE PARAMETER BLOCK POINTER 
000016 sCLEAR THE STATUS/ERROS INDICATOR 
;PICKUP THE DRIVE NUMBER 
012376 MOV RPADR, SUNIBUS ADDRESS OF RPCS1 
012250 DRVSTA(R1) CHECK DRIVES STATUS 
T BRANCH IF ONLINE 


012316 ULDFLG(R1) ;UNLOAD COMMAND IN QUEUE? 
BNE $ BRANCH IF YES 

012270 ait rev ies TO INIT THE DRIVE 

012626 RO,DRVINT 


BR 0 N 
012250 DRVSTA(R1) HIS DRIVE STATUS ONLINE? 
6$ BR IF NOT 
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105761 012300 1$: DPRQS(R1) t+ a PORT REQUEST FOR THE DRIVE ? 
001031 BNE R IF YES 

000010 MOV R1,RPCS2(R4) 7SELECT THE DRIVE 

020476 RO, DRVQUE spur THIS aga IN QUEUE 
000103 000002 #103,2(R2) 71S THIS REQ. FOR AN UNLOAD? 


BR IF NO 
177777 +=012316 MOVB #-1,ULDFLG(R1) ;SET THE ‘UNLOAD IN QUEUE'’ FLAG 
012240 : SS “peahee is He wees ACTIVE? 


IF YE 

013456 Js PC .OPT [CALL THE OPTIMIZER 
120000 : #B1T15!B1T13,16(R2)_:SET THE ‘UNLOAD IN QUEUE'’ ERROR FLAG 
014566 : us PC,CI7 [GO HANDLE THE PARITY ERROR 
020476 : RO, DRVQUE ;PUT REQUEST IN QUEUE 

BR 9$ TQUEUE IS FULL 
000100 #81706, (RA) 31S ‘IE SET ALREADY ? 
020034 PC,SET.IE 

BR SRETURN, REQUEST IN QUEUE 
012250 : DRVSTACR1) i SEE IF ‘DRIVE OFFLINE OR UNSAFE 


R IF UNSAFE 
140000 #BIT15!B1T14, 16¢h2) SET OFFLINE ERROR INDICATOR 
012260 DRVTYP(R1) to IF OFFLINE OR NONEXISTENT 


8% [BR IF OFFLINE 
100002 MB1T15!B1701 ,16¢h2) UREPORT DRIVE NONEXISTENT 
110000 : MOV #B1T15!BIT12,16(R2) ;DRIVE IS UNSAFE 

: sRESTORE RO - R5 


(RO)+ :SETUP FOR NORMAL RETURN 
10$ [FINISH UP, THEN EXIT 
SRESTORE RO - RS 
: (RO)+ CORRECT THE RETURN ADDRESS 
012314 C ACTDRV CLEAR “ACTIVE DRIVER'’ FLAG 
177776 MOV (SP) +, aaPS [RETURN ‘PS’ TO USER LEVEL 
RO SRETURN TO CALLER 


;OPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
; CALL 
: MOV #0RVNUM ,R1 DRIVE NUMBER TO R1 
3 JSR PC,OPT SETUP A COMMAND 
OPT: SAVREG SAVE RO - RS 
177776 MOV a#PS ,~(SP) SAVE PROC. STAT 
012364 012312 ATABIT(R1), SRCHWT ;CLEAR AR SEARCH WAIT'’ KEY 
020552 JS PC ,GETREQ GET "DPB’ POINTER OF REQUEST 
R2 ifs THERE A REQUEST IN QUEUE? 
7$ :NO--B 
004000 000000 #B1T11,RPCS1(R4) 
; BRANCH 
000100 #BIT6,RPDOS1(R4) ; . 


3 TIS 
013522 012626 $ RO,DRVINT SEE. IF DRIVE STILL ONLINE ? 


BREE REE EY 
ONOUSWR— 
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CZRIBC.P11 


013736 
013742 


004737 
010237 


012250 
020574 
140000 
012250 
110000 


000111 
017524 
004000 
000150 
014152 
012362 


012340 
015122 


013736 
014044 
177777 


023420 
014566 
000100 


020034 
177776 


020574 
012310 
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10$: 


6$: 
7$: 


8$: 


MOV 
RESREG 
RTS 


6$ 
DRVSTACR1) 
1$ 


DRVS 


PARITY OR bg NOT SET 


RANCH 
E REQUEST FROM QUEUE 


PC ,POPQUE NO--REMOV' 
#BiT15‘BIT14, r6cka) SET OFFLINE 99 FATUS/ERROR INDICATOR 
R1) an DRIVE UNSAF eo 


8$ R TO EXIT IF 
perrisseLri2.16¢he) 3 SET UNSAFE STATUS/ERROR INDICATOR 


#111,-(SP) 
RO,WRT RP 
#B1T11,(R4) 
#150,2(R2) 
2s 

PC,CI4 

8$ 

DTUW 

45 

SEEKFG 

3$ 

RO,LA 

8$ 

4% 

PC,CI1 

8$ 


R3 
Soe core 


WSiT06, (RA) 
8$ 


PC,SET.IE 
(SP)+,a#PS 


PC 


COMMAND INITIATOR 


7 CALL 
; MOV 
MOV 
JSR 


#DRVNUM,R1 
#0PB,R2 
PC,CI? 


PC ,POPQUE 
R2, TRNSWT 


#-1 ,DPRQS(R1) 
R1,R3 


BRANCH TO EXIT 


ONTO THE STACK 
STE 


R 
ZDRIVE AV ~~ parame 
IS _ THE NREQUEST FOR 1/0? 
> YES--BRANCH 
HE COMMAND INITIATOR 


CALL T 
BRANCH TO EXIT 


DATA TRANSFER UNDERWAY? 


;YES--GO START A SEARCH 
:D0 IMPLIED SEEKS? 


he a ye 


7NO=-DO L AHEAD 
RETURN HERE ON A PARITY ERROR 
:GO START A SEARCH 

START A DATA TRANSFER 


START A SEARCH 

:GO TO THE EXIT 

SET PORT REQUEST INDICATOR 

:SET UP_TO ADDRESS WORDS 
ONVERT TO WORD INDEX 
START 10 SEC TIMER 


EXIT 
PROCESS THE PARITY ERROR 
;SEE IF 4 ALREADY SET 


:BR_IF SE 

3SET “*1E** WITHOUT A ‘’TRE*’ 
RESTORE PROC. STATUS 
;RESTORE RO - R5 


DRIVE NUMBER 
: ADDRESS OF DPB 
= C11,C13, OR C14 
in ERE: 


SCI1=DATA TRANSFER 

:CI2=SEARCH REQUESTED BY DATA XFER 
[CI4=NOT DATA TRANSFER 
;RE 


MOVE REQUEST FROM ‘DRIVES WAIT’’ QUEUE 
PUT REQ. IN TRANSFER WAIT QUEUE 
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014224 


gtes0s 


012376 
000010 
000004 
000002 
017524 


017524 


000002 
017524 


012362 
014530 
012376 
000010 
000012 
017524 
000010 
012412 
000026 
000011 
017524 


000131 
017524 


012364 
012376 
000010 
000002 
000131 
000010 
017524 
000105 


000012 
017524 


012312 


20-MAR-78 
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;0PB ADDRESS TO R3 


RPADR RG 
R1,RPCS2(R4) 
#4 RB 


° 


#2.R4 
(R3)+, (RG)+ 
(R3) +, (RG)+ 
(R3)+,=(SP) 
RO,WRT.RP 


(R3)+,=(SP) 
RO,WRT.RP 


2(R2) ,=(SP) 
RO, WRT .RP 


R1,0TUW 
c15 
RPADR,R4 
R1,RPCS2(R4) 


12(R2) ,=(SP) 
RO,WRT.RP 


10(R2) ,R3 
MXWNDW ,R3 
1$ 

4 pa 
R3,- 

TitR2), “ISPD 
RO,WRT.R 


#131,-(SP) 
RO,WRT.RP 


eee 
;RPCS1 ADDRESS 


RPADR ,R4 
R1,RPCS2(R4) 
2(R2) ,R3 
#131,R3 

1$ 


10(R2) ,=(SP) 
RO,WRT.RP 


2s 
#105,.R3 
$ 


3 
12(R2) ,~(SP) 
RO,WRT.RP 


WORD COUNT 
LOAD BUFFER ADDRESS 
:LOAD SECTOR AND TRACK 


:CALL THE LOAD(WRITE) ROUTINE 
; INDEX OF REGISTER TO LOAD 
;ERROR RETURN ADDRESS 

;LOAD CYLINDER ADDRESS 


;LOAD *'‘COMMAND+GO"', '‘A17&A16'', AND ''PSEL"' 


SET ‘DATA TRANSFER UNDERWAY"’ 


;RPCS1 ADDRESS 
;SELECT DRIVE 
;DESIRED CYLINDER ADDRESS 


;PICKUP SECTOR ADDRESS 
;BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 


; COMBINE THE +9 oa SECTOR WITH 
THE DESIRED TRACK 
[LOAD DESIRED TRACK & SECTOR 


START A SEARCH 


3SET ‘SEARCH WAIT'' KEY 


cott ECT DRIVE 
PICKUP THE Ae ig $ COMMAND 
S_ IT A SEARCH COMMAND? 
:BRANCH IF NO 
;LOAD DESIRED TRACK & SECTOR 


+60 cae CYLINDER 
S IT A SEEK COMMAND 
TBRAN CH 


IF NO 
;LOAD DESIRED CYLINDER 
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016203 
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000115 
017344 


000001 
017524 
000107 


000117 
000103 


000001 
012250 
000001 


017524 


000143 
017344 


000001 
017524 


000145 


017524 


012240 
012316 
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C16 
#115,R3 
4$ 
RO,RD.RP 


1(R2), (SP) 
RO,WRT.RP 


C16 
#107,R3 
C16 
#117,R3 
C16 
#103,R3 


#1 ,DRVACT(R1) 


DRVSTA(R1) 


#1 ,ULDFLG(R1) 


R3,-(SP) 
RO,WRT .RP 


PC 
#143,R3 
6$ 
RO,RD.RP 


1(R2),1(SP) 
RO,WRT.RP 


(SP)+, (R3)+ 
9$,R5 

12$ 

#2,9% 


8 
#145,R3 
12$ 


R3,-(SP) 
RO,WRT.RP 


iS i: oo AN ‘‘OFFSET'’ COMMAND? 
R IF NO 


MERGE THE OFFSET VALUE INTO RPOF 
;BUT DON'T CHANGE THE UPPER 


BYTE WHEN LOADING THE 
REGISTER (RPOF) 


;GO START THE COMMAND 

31S IT A ‘RECALIBRATE’’ COMMAND? 
BRANCH IF YES 

:1S_ IT A_RETURN TO CENTER? 
BRANCH IF YES 


IT AN ‘UNLOAD’ COMMAND? 


71S 

;BRANCH IF NO 

7SET THE DRIVE ACTIVE INDICATOR 
sPUT DRIVE STATUS TO OFFLINE 
7SET "UNLOAD IN PROGRESS'' FLAG 
;START THE ‘UNLOAD’’ COMMAND 


;RETURN TO USER 

1S IT A “SET FORMAT'' COMMAND? 
[BRANCH IF NO 

READ THE OFFSET REGISTER 


COMBINE *FMT22"',"ECI"', AND “HCI"’ 
;LOAD ‘'FMT22"', ‘ECI'', AND/OR ‘HCI"’. 


31S IT A “GET REGISTER’’ COMMAND? 
;BRANCH IF NO 
POINTS TO 1ST ADDRESS OF WHERE 


:TO PUT THE REGISTER(S) 


; INIT. THE INDEX FOR THE FIRST REG. 
4 ye OF LAST weal TO MOVE 

D RPO4/5/6 REGISTER 
i NDEX OF REG. 10. READ 


;GET THE CONTENTS OF RH11/RP04/5/6 REG. 
;LAST REG. BEEN READ? 

;GET OUT IF YES 

: LOOP=-ROr a INDEX BY 2 


00 ET 
:IS IT A ‘SELECT DRIVE’ COMMAND? 
BRANCH IF YES 

;LOAD THE COMMAND 





On 
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020574 12$: J PC ,POPQUE sREMOVE REQ. FROM QUEUE 
0002 000016 #BIT07,16(R2) ;SET THE 'D T 
012336 T SAVEFG SAVE THE RH11/RP04/5/6 REGISTERS? 
13$ ;BRANCH IF NO 
017716 PC,SVRH11 :YES--GO SAVE THE REGISTERS 
PC :RETURN TO USER 


: R1 
001750 012342 eats nectnaaiaat SET A ONE SECOND TIMER 


R 
000001 012240 MOVB #1,DRVACT(R1) ;SET THE DRIVE ACTIVE 
PC ;RETURN TO THE USER 
R3,-(SP) [LOAD THE COMMAND 
017524 J RO,WRT.RP 


C15 

010000 : #BIT12,RPCS2(R4) ;DRIVE NON-EXISTENT ? 
C18 :BR IF YES 
R2 ON IED IN QUEUE ? 


C178 IF NOT 
104000 #81T15!B1T11,16(R2) 3SET *PARITY’* ERROR INDICATOR 
017716 PC,SVRH11 ;GO SAVE’ THE RH11/RP04/5/6 REGISTERS 
000111 : #111,-(SP) 3D0 A ‘DRIVE CLEAR'’ 
017524 JSR RO.WRT.RP 


PC ,EMPTYQ sEMPTY THE QUEUE 

ULDFLG(R1) :CLEAR THE UNLOAD IN QUEUE FLAG 

DRVACT(R1) DRIVE IS IDLE 

R1,DTUW IF THIS DRIVE HAD AN I/O REQUEST 

1$ IN PROGRESS CLEAR ALL OF THE FLAGS 
012310 TRNSWT 


177777 }=012362 ata 


SAVE RO - R5 
010000 000010 BIT #BIT12,RPCS2(R4) ;1S ‘NED’ SET ? 
1$ BR IF YES 


R1 
R3 
012240 : DRVACT(R1) zDRIVE wie 


;BRANCH IF NO 
012310 MO TRNSWT ,R2 ;GET THE ‘TRANSFER iy UE QUEUE 
012362 R1,DTUW :DID THIS DRIVE HAVE AN I/0 IN PROGRESS? 
2$ ;BRANCH IF YES 
020552 PC,GETREQ GET THE DPB POINTER 
: R2 SQUEUE ENTRY FOR DRIVE ? 


4$ ;BR IF NOT 
010000 #BIT12,RPCS2(R4) ia. alll ? 
100002 SSUES OT TOF -16¢Ra) Set "DRIVE NON-EXISTENT’ INDICATOR 
102000 : Ee hae 16¢k2) SET “NON-CLEARABLE PARITY’ ERROR INDICATOR 
017716 SVRH11 AVE po eee are REGISTERS 


177777 : at TIMER (R3) STOP. THE TIMER 
014774 012240 DRVACT(R1) :SET “DRIVE ACTIVE’' TO IDLE 
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012362 
177777 


000002 
177770 


177777 
012310 
020400 


012376 
000010 
017344 


000012 
012326 


012326 
000010 


000340 
017344 


002600 
012406 


012362 


000010 


012362 


000010 


012404 


177776 
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CMP R1,D0TUW 71S ae DRIVE SETUP FOR A TRANSFER 
BNE 5$ “BR F NOT 
MOV #-1 ,0TUW ;RESET THE INDICATOR 
CLR TRNSUT ;CLEAR THE TRANSFER QUEUE 
5$: CLRB ULDFL ;CLEAR UNLOAD | FLAG 
BIT VaiTis. SRPCS2(R4)” ;"NED* SET ? 
BNE os IF YES 
INC R1 “MOVE TO THE NEXT DRIVE 
ADD 2,R35 
BIC #*C7,R1 
BNE 1 ;BRANCH IF MORE DRIVES 
MOV #-1 ,DTUW 3NO DATA TRANSFERS UNDERWAY 
CLR ge of ;CLEAR THE ‘TRANSFER WAIT’ QUEUE 
JSR RQUE sCLEAR ALL OF THE agence QUEUES 
MOV wits, RPCS2(R4)- ;D0 A MASSBUS INIT 
BR re) CONT INUE 
6$: JSR PC,EMPTYQ 'CLEAR THE DRIVE'S QUEUE 
CLRB DRVSTA(R1) ;SET DRIVE TO OFFLINE 
CLRB DRVTYPC(R1) ;CLEAR THE DRIVE TYPE INDICATOR 
7$: SR PC,SET.IE SET “‘IE’’ WITHOUT ‘‘TRE'’ 
RESREG RESTORE RO - R5 
RTS PC RETURN 
;LOOK AHEAD ROUTINE 
3; CALL 
5 MOV #DRVNUM,R1 : DRIVE NUMBER 
; MOV #DPB ,R2 ;POINT TO DPB 
; JSR RO,LA 3;GO CHECK THE WINDOW 
; RETURN1 ;ERROR RETURN 
; RETURN2 ;START A SEARCH 
; RETURNS START A DATA TRANSFER 
LA: MOV RPADR ,R4 ;GET RPCS1°S ADDRESS 
MOV R1,RPCS2(R4) ;SELECT DRIVE 
i. RO,RD.RP ;READ CURRENT CYLINDER 
4$ ;ERROR RETURN ADDRESS 
CMP (SP)+,12(R2) 31S CURRENT CYLINDER=DESIRED 
; CYLINDER? 
BNE 3$ sEXIT IF NO 
INCB LACNT(R1) : INCR ie hay LOOK AHEAD COUNT 
CMPB LACNT(R1), MXLACT” hen ll 
BGT 2$ CH IF YES 
MOVB 10(R2) ,R3 eet eke at ae fs + — AND 
SWAB R3 :MULT Y 64--ALIGN WITH 
ASR R3 ; LOOK * HEAD REGISTER 
ASR R3 
MOV #340 ,a#PS 7PRIORITY LEVEL ‘7° 
JSR RO,RD.RP ;READ LOOK AHEAD REGISTER 
a 
Pe a aa ;CALCULATE THE DELTA 
ADD #<22.%64.>,R35 ;MAKE THE DELTA POSITIVE 
1$: CMP MXDLTA,R3 ;CHECK THE DELTA TO SEE 


an 
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3699 015230 002406 BLT 3$ sIF IT IS WITHIN THE 
3700 015232 023703 012410 CMP MNDLTA,R3 ;WINDOW==-IF YES, ZERO 
3701 015236 002003 BGE 3$ ; THE LOOK AHEAD COUNT 
3702 015240 105061 012326 2$: CLRB LACNT(R1) zAND TAKE THE I/O EXIT 
3703 015244 005720 TST (RO) + 
3704 015246 005720 3$: TST (RO)+ ;ADJUST THE RETURN ADDRESS 
3705 015250 000402 BR 5$ sEX! 
3706 015252 004737 014566 4$: JSR PC,CI7 PROCESS THE ERROR 
ete 015256 000200 5$: RTS RO ; RETURN 
Tay ; INTERRUPT SERVICE ROUTINE 
3711 015260 112737 900001 012314 ISR: MOVB #1 ,ACTDRV 3SET "ACTIVE DRIVER’ FLAG 
3712 015266 104412 SAVREG 7SAVE RO = R5 
3713 015270 013704 12376 MOV RPADR ,R4 ZADDRESS OF RHSCS1 
3714 015274 013701 012362 MOV DTUW,R1 GET "DATA TRANSFER UNDERWAY'’ INDICATOR 
3715 015300 002403 BLT 1$ ;BRANCH IF NO DATA TRANSFER UNDERWAY 
3716 015302 004737 015324 JSR PC,1D ;CALL TRANSFER DONE 
3717 015306 000402 BR 2s EXIT 
3718 015310 004737 015464 1$: JSR PC,SC CALL SPECIAL en 
3719 015314 104413 2$: RESREG ;RESTORE RO - 
3720 015316 105037 012314 CLRB ACTDRV ;CLEAR “ACTIVE DRIVER" FLAG 
$55 015322 000002 RTI RETURN 
eo ; TRANSFER DONE ROUTINE 
3725 015324 105061 012240 TD: CLRB DRVACT(R1) SET DRIVE ACTIVE INDICATOR TO IDLE 
3726 015330 012737 177777 012362 MOV #~1 ,DTUW NO DATA TRANSFERS UNDERWAY 
3727 015336 006301 ASL R1 
3728 015340 012761 177777 012342 MOV #-1,TIMER(R1)  ;CANCEL TIMEOUT 
3729 015346 006201 ASR R1 
3730 015350 013702 012310 MOV TRNSWT ,R2 ;GET *DPB** ADDRESS FROM THE 
3731 015354 005037 012310 CLR TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 
3732 015360 052762 000200 000016 BIS #B1T07,16(R2) T DONE 
3733 015366 010164 000010 MOV R1,RPCS2(R4) SELECT THE DRIVE 
3734 015372 004037 017344 JSR RO,RD.RP ; TRANSFER ERROR(TRE=1)? 
3735 015376 000000 RPCS1 
3736 015400 014566 C17 
3737 015402 006126 ROL (SP) + 
3738 015404 100413 BMI 33 :BR IF YES 
3739 015406 005737 012336 TST SAVEFG SAVE THE RH11/RPO04/5/6 REGISTERS? 
3740 015412 100002 BPL 1$ ;BRANCH IF NO 
3741 015414 004737 017716 JSR PC,SVRH11 7 YES--SAVE THE REGISTERS 
3742 015420 004737 013456 1$: JSR PC,OPT :CALL OPTIMIZER 
3743 015424 000417 BR SC ;CHECK OTHER DRIVES 
3744 015426 012714 000113 23: MOV #113, (R4) hte t THE DRIVE 
3745 015432 000414 BR SC HECK FOR OTHER DRIVES 
3746 015434 052762 100100 000016 3$: BIS sett te Ot tes. 16¢h2) tg DATA ERROR FLAG 
3747 015442 004737 020456 JSR PC EMP EMPTY THE 'DRIVE'S WAIT'* QUEUE 
3748 015446 004737 017716 JSR PC SVRHIT ‘SAVE THE ee ae? REGISTERS 
3749 015452 012714 040111 MOV #40111, (R4) ISSUE A ‘DRIVE C 
3750 015456 012714 000113 MOV #113, (R4) ; ISSUE A RELEASE TO. THE DRIVE 
$535 015462 000400 BR sc :CHECK FOR OTHER DRIVES 
3753 SPECIAL CONDITION ROUTINE 


AM 
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000016 SC: RPAS(R4) ,R3 ;READ ‘'RPAS'' 
$ ;BRANCH IF ANY ‘ATA’ BITS SET 
017344 JSR RO,RD.RP READ CONTROL AND STATUS REGISTER 


(SP)+ 31S ““IE''=1? 

1$ :YES, NO DRIVES TO CHECK 
RO,ES.SAV TSAVE THE ADDRESS IN ‘SESCAPE* 
1 REPORT AN ILLEGAL INTERRUPT 
Tele, :Set —? ENABLE 


URN 
get 5 eat DRIVES THAT HAVE 


;ATA=1? 
; YES--BRANCH 
;MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE TO CHECK? 
;CLEAN OFF THE STACK 
S PC ;RETURN TO USER 
012270 : A gpaniecsss HINITIALIZING THE DRIVE ? 


016456 $C13 PROCESS THE DRIVE 
012300 : ees PORT REQUEST OUTSTANDING ? 


:BR IF NOT 
016456 $c13 zSTART THE OUTSTANDING COMMAND 
012250 : DRVSTA(R1) sCHECK THE DRIVE STATUS 
5$ ;BRANCH IF ONLINE 
012316 ae sUNLOAD IN PROGRESS? 


020552 PC,GETREQ 3 POINT 
017716 PC, SVRH11 SAVE THE RHI /RO4/5/6 gg 
016406 PC,SC12 :SA VE RPDS1, RPER1, RPER2, AND RPER3 
. ALSO DO A ORIVE INIT (DRVINTD 
105761 012250 DRVSTA(R1) :DID DRIVE COME ONLINE? 
3416 6$ ;NO---BRANCH 
032737 040000 012230 WBIT14,RPERRS ;WAS THERE AN ERROR? 
001002 3$ R 


:BR IF ERROR 
000137 016316 $C11 ERROR 
013705 012232 : RPERRS+2,R5 “YES == PICKUP RPER1 AND 
000502 SC6A :GO PROCESS THE ERROR 
105761 012240 | : DRVACT(R1) ZDRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
001033 SC6 :BR IF EITHER 
004737 016406 PC,SC12 : SAVE RPDS1, toes RPER2, AND RPER3 


105761 012270 : DPINT(R1) 
1321 4 


E SC 7B ECK 
012250 DRVSTA(R1) CHECK ON bRIVE' S STATUS 
$ :BR IF UNSAFE 
020000 #B1T13,RPERRS+6 ; ar oe CHANGED ? 


$ :BR IF YES 
000113 #113,-(SP) ;RELEASE COMMAND 
017524 JS RO,WRT.RP ;WRITE THE COMMAND INTO RPCS1 
015724 000000 REGISTER INDEX 
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015726 


0161 
016174 


020636 
020636 


177777 
020552 
000010 
017344 


012240 
100210 
017344 


737 017716 


000111 
017524 


177777 
017716 
110000 
010000 


177777 
000001 


072460 


012342 


012250 
000016 


012240 
012250 


012342 
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7$: 


8$: 


PARITY EXIT ADDRESS 
(SP) ,R5 ;PICKUP (RPAS) BEFORE THE ERROR CALL 
RO,ES.SAV ;SAVE THE ADDRESS IN ‘SESCAPE' 
2 REPORT THE yt} ATTENTION 
SC4 :GO CHECK FOR MORE ATA'S 


RO,ES.SAV SAVE THE ADDRESS IN ‘SESCAPE' 

5 ;REPORT THE ADDRESS PLUG CHANGE 

SC4 CHECK FOR MORE DRIVES 

R1 ;SETUP TO ADDRESS WORDS 

#-1, TIMER(R1) ; STOP THE TIMER 

R1 ;RESTORE THE DRIVE ADDRESS 

PC ,GETREQ :GET THE te POINTER FROM THE QUEUE 
R1,RPCS2(R4) : SELECT DRI 

RO,RD.RP ;READ THE RPOS' S STATUS REG. 


(SP) ,R5 zAND PUT IT IN R5 

(SP)+ [WAS THERE AN ERROR? 

1$ BR IF ERROR 

DRVACT(R1) oo DRIVE'S STATE 

$c11 F DRIVE ACTIVE WITH ORDER 

reit15:e1r07:81103, PCR) ; INFORM USER OF ERROR RECOVER COMPLETION 


RO,RD.RP READ ERROR REGISTER #1 
(SP)+,R5 zAND SAVE IT IN R5 
PC,SVRH11 SAVE RH11/RP04/5/6 REGISTERS 


#111,-(SP) ; ISSUE A DRIVE CLEAR 
RO,WRT.RP 


3WAS "UNSAFE*’ CONDITION 
BRANCH IF YES 
ANYTHING IN QUEUE ? 
SC7 ;BR_IF NOT 
+1 Vidette bianchi : INFORM USER OF ERROR 


sc 
RO,RD.RP ;READ DRIVE STATUS REG. #1 


(SP) ,R5 spa RPDS1 IN R5 
(SP)+ 7" ERR’ =1? 
2s ‘BR IF NO=-UNSAFE CLEARED 
oy gave ay IVE IS UNSAFE 
H11 AVE RH11/RP04/5/6 REGISTERS 
meiTisieiri2, 160k) : INFORM USER OF UNSAFE ERROR 
#B1T12,R5 7“MOL'’ = 1 ? 
3$ 


:BR_IF YES 
#-1,DRVACT(R1) ACTIVE ERROR RECOVER 
+ aattataaai ; ONL INE 


S70000.. ,TIAERCRT) START 30 SECOND TIMER 
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015540 
100220 
012240 
020456 
012316 
012316 
012364 
012250 
000113 
017524 
015540 
012240 
020552 
014566 
014614 
015540 
012316 
012316 
012240 
012364 
020574 
000200 
012336 
017716 

2364 


000042 
012626 


177777 


000010 
012364 
004000 


000016 


012312 


000016 
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3$: 
SC7: 


10:25 


SC4 
OLE dee tee -16(R2) 


ULDFLGCRI) 
ULDFLG(R1) 


SEQ 0073 


; INFORM USER OF ERROR 


; QUEUE 
ZUNLOAD be PROGRESS OR QUEUE? 


;CLEAR UNLOAD FLAG 
ATABIT(R1),RPAS(R4) _;CLEAR ATTENTION BIT 


DRVSTA(R1) 


2$ 
#113,-(SP) 
RO,WRT RP 


SC4 
DRVACT(R1) 
1$ 
<r) a 


2$ 
PC,C1I7B 
SC4 
ULDFLG(R1) 
1$ 


ULDFLG(R1) 
DRVACT(R1) 


;SET 
ATABIT(R1),SRCHWT 


2$ 


PC ,POPQUE 
#B1T07 ,16(R2) 
SAVEFG 


2$ 
PC,SVR 


e 


SC4 
R1,RPCS2(R4) 
RPDS1(R4) ,RPER 
RPER1(R4) ,RPERRS*#2 


CHECK 
SELECT 
RS” 


1S THE DRIVE UNSAFE ? 


:BR IF IT IS 


SE COMMAND 
THE a INTO RPCS1 


SCHECK FOR MORE DRIVES 
[1S DRIVE IDLE? 


2 YES~=BRANCH 

;GET DPB POINTER 

PROCESS THE PARITY ERROR 

[PROCESS THE UNCORRECTABLE PARITY ERROR 


CHECK MORE DRIVES 
;"'UNLOAD IN PROGRESS’ ’? 


LE 
:DOING A SEARCH OPERATION FOR 
3AN 1/0 COMMAND? 


;BRANCH IF YES 


; REMOVE a FROM QUEUE 


SE 
SAVE THE REGISTERS? 
> BRANCH IF NO 


YES=-SAVE ALL OF THE RH11/RP04/5/6 REG'S 


RH11 
ATABIT (RID, -RPAS(R4) ee ATTENTION BIT 


T A REQUEST 
K_ FOR MORE DRIVES 
DRIVE 


SAVE THE FOUR REGISTERS THAT 
;WILL TELL US SOMETHING 


RPER2(R4) ,RPERRS*+4 


Ay Ar edema | 


RO,DRVINT 
1$ 


PC 
(SP)+ 
$c8 


R1 
de aateh 
R1,RPCS2(R4) 


INIT. THE STATE OF THE DRIVE 
DL I aaa EXIT 


ETURN 

POP PC OFF OF THE STACK 
:PROCESS THE PARITY ERROR 
;SETUP_ TO ADDRESS WORDS 

; STOP THE TIMER 


‘SELECT THE DRIVE 


R 
ATABIT(R1), RPAS(R4) CLEAR THE ar BIT 


#BIT11, (R4) 
1$ 


R1 


DRIVE AVAILABLE ? 
‘BR IF AVAILABLE 
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016512 012761 023420 012342 #10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
016520 R1 
BR 3$ sEXIT 
012270 : Agila cn wor THE DRIVE ? 


E 2 
012270 DPINT(R1) [CLEAR THE INIT INDICATOR 
012626 RO,DRVINT :GO INIT THE DRIVE 
;DUMMY PARITY ERROR RETURN 
012250 DRVSTACR1) DRIVE ONLINE ? 
2$ :BR IF YES == START ORDER 
R2 ; QUEUE — FOR THE DRIVE 


3$ 7B 

020552 PC,GETREQ ;GET DPB ADDRESS 

140000 #B1T15!B1T14,16(R2) _; INFORM USER THAT DRIVE OFFLINE 
PC,SVRH11 SAVE THE REGISTERS 
PC,EMPTYQ sEMPTY THE REQUEST QUEUE 


BR 
_ 2&: DPRQS(R1) ;CLEAR THE PORT REQUEST INDICATOR 
PC,OPT ;START THE PENDING REQUEST 
015540 3$: SC4 ;PROCESS OTHER DRIVES 


3RP04/5/6 TIMER ROUTINE 
; CALL 


#TIME ,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
PC,RPTMR CALL RPO4/5/6 TIME ROUTINE 


012314 3 ACTDRV CHECK “‘ACTDRV & ACTSTR"’ 
B 4$ :1F NON ZERO EXIT 
000001 012315 MO #1,ACTSTR 7SET “'ACTSTR"’ 
;SAVE_RO - R5 
R1 START WITH DRIVE 0 


R3 
012342 : TIMER(R3) 71S THE TIMER RUNNING? 
2s [BRANCH IF NO 
000002 2(SP),TIMER(R3) ;COUNT THE INTERVAL 
2$ 7BR IF NO SOFTWARE TIMEOUT 
016710 PC,STO :CALL SOFTWARE TIMEOUT ROUTINE 
3$ :GO TO THE EXIT 


23: i ;MOVE TO NEXT DRIVE 
+ 
000010 U #8. ,R1 OUT OF DRIVES? 
3s i$ ;BRAN ANCH IF NO 


;RESTORE RO = R5 
012315 CLRB ACTSTR ;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
4$: MOV eer ADJUST THE STACK 


Py 


: SOFTWARE TIMEOUT ROUTINE 
;NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


“CALL: STO 
#DRVNUM,R1 :DRIVE NUMBER 
PC,STO CALL 
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016710 


017172 


010146 


012376 
900610 
017344 


012270 
012300 


012310 
012362 


020552 
101000 
017716 
000040 
012240 
012316 
012626 
012240 
012310 
012362 
020552 
100400 
177777 


000010 
177777 
012310 
020400 
000016 
012364 
012270 
012300 
012362 
017344 
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STO: 


RETURN 


R1,-(SP) :SAVE R1 


R3,-(SP) ; SAVE R3 
RPADR,R4_. * GET ha OF ‘RPCS1"' 
R1,RPCS2(R4) ;SELECT THE DRIVE 
RO,RD.RP ;READ "DRIVE STATUS REG’ 


(SP)+ 31S 'DRY''=1? 
$TO2 BR IF YES 
hl san ie ves INTIALIZE THE DRIVE ? 


STO 7B 
DPRGS(R1) : OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
TRNSWT ,R2 ‘PICKUP. TRANSFER WAIT QUEUE 

R1,DTUW : TRANSFER UNDERWAY ON THIS DRIVE? 

1$ : BRANCH IF YES 


PC,G T DPB ADDRESS 
#eitl5:B1T09, 16¢k3) ;SET THE ERROR FLAGS 
PC,SVRH11 ;SAVE R RHIT/RPO4/576. REGISTERS 
#BiT05, RECS2(R4) ;‘"INIT’’ THE MASS BUS 
DRVACT(R1) DRIVE IS IDLE 
ULDFLGCRI) CLEAR THE UNLOAD FLAG 
R1 SSTART WITH DRIVE 0 


R3 
RO,DRVINT dw Af THIS DRIVE 
TO5 PARITY ERROR RETURN 

DRVACT(R1) :DRIVE IDLE BEFORE THE INIT.? 

4$ ; YES--BRANCH 

TRNSWT,R2 :GET TRANSFER WAIT QUEUE 

DTUW,R1 WAS THERE I/0 ON THIS DRIVE? 
ie 7 ben aoa 


PC,GETR E DPB POINTER FROM QUEUE 
wsiti3:Bl 08, 16¢k3) INFORM USER OF INIT. 
DRVACT(R1) ;SET DRIVE ACTIVE TO IDLE 
ULDFLG(R1) NO UNLOAD 
#-1,TIMER(R3)  ;STOP THE TI 
(R3)+ UPDATE THE INDEX 
; INCREMENT THE DRIVE NUMBER 
LAST DRIVE BEEN CHECKED? 
;NO--LOOP 


NO DATA TRANSFERS UNDERWAY 
[CLEAR TRANSFER WAIT QUEUE 
i CLEAR ALL REQUEST QUEUES 


sEXI 
RPAS(R4) ,R5 ;READ ATTENTION REG 
ATABIT(R1),.RS5  ;1S ATTENTION FOR THIS DRIVE UP ? 
STO3 ; YES--BRANCH 
DPINT(R1) TRYING TO INTIALIZE THE DRIVE ? 
ST :BR IF YES = DRIVE NOT ONLI 
DPRQS(R1) i OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
S107 7;BR_IF YES = NO RESPONSE TO REQUEST 
AP hae te it~ he UNDERWAY FOR THIS DRIVE 
RO,RD.RP :YES==CHECK ‘'RDY'* 
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017176 
017200 


012270 
012300 
177777 
014666 
012270 
012250 
177777 ~=012342 
020552 
140000 000016 
177777 =012342 
012300 
020552 
100004 
020456 
017716 


013737 012374 017512 


012376 017370 
017370 


017372 
012376 
000010 
010000 


172752 
020000 


20-MAR-78 


STO8: 
STO9: 
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SEQ 0076 


(SP)+ 

STO1 :BR IF ‘RDY''=0 

DPINT(R1) S INITIALIZING THE DRIVE ? 
[BR IF INIT PENDING 

DPRAS(R1) ;POR T REQUEST PENDING ? 

#-1, TIMER(R3) 3 STOP THE TIMER 

S109 XIT 

PC .C18 “GO HANDLE THE PARITY ERROR 


DPINT(R1) CLEAR THE ont! meee INDICATOR 
DRVSTACR1) SET UNIT OFFLINE 

#-1, TIMER(R3) :$1OP THE TIMER 

PC,GETREQ T THE DPB vw y 

R2 ; REQUEST IN QUEUE ? 


STO9 BR F NOT 
WBIT1S!B1T16,16(R2) ; INFORM THE USER DRIVE NOT AVAILABLE 


ST FINISH 

#-1,TIMER(R3) STOP THE TIMER 

DPRQS(R1) CLEAR el me INDICATOR 
PC,GETREQ :GET DPB AD 

R2 —t ENTRY. FOR DRIVE ? 


STO9 F NONE 

#B1T15:B1T2, 16(RBS LINE ORM USER OF PORT REQUEST ERROR 
PC,EMP SCLEAR THE QUEUE FOR THE DRIVE 

PC. SVRHT] [SAVE THE REGISTERS 
SRESTORE R3 


(SP)+,R3 
(SP)+,R1 sRESTORE k1 
PC ; RETURN 


;ROUTINE TO READ A RH11/RP04/5/6 REGISTER 


:CALL 


JSR 
INDEX 
ERRADR 


RETURN 


RO,RD.RP :GO READ A REGISTER 

REG. INDEX FROM BASE 

ERROR ADDRESS--PROCESS ERROR STARTING 
zAT THIS ADDRESS 


R 
CONTENTS OF REG. IS ON THE STACK 


MAX. RETRYS ALLOWED 

sSAVE RO FOR RETURN 

FORM THE DESIRED ADDRESS 

[USING THE BASE AND THE INDEX 

:READ THE DESIRED REGISTER OF THE RPO4 
DRESS IS FORMED HERE 


MCPEMX ,RD.RP2 
(SP) ,~(SP) 
RPADR,RD.ADR 
(RO)+,RD.ADR 
“ wheabeeteds 


0 
RD.WRD,2(SP) USER 
RPADR,-(SP) [PUT THE ADDRESS ON THE STACK 
#RPCS2, (SP) ‘FORM THE ADDRESS OF RPCS2 
#B1T12.a(SP)+ :C HECK THE ‘NED’ BI 

RD.RP3 BR IF DRIVE NNON-EXI STENT 
@RPADR.-(SP) READ RPCS1 

#81113, (SP) [DID MCPE SET? 
1$ SBRANCH IF YES 
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017522 


20-MAR~7. 
022620 
000432 


020636 
012362 
040000 


040000 


012376 
017506 
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3$: 

D 
RD.RP2: 
RD.RP3: 

MOV 
RD.RP4: RTS 


(SP) +, (RO) + 
RD. RPG 


een 
DTUW » 

2$ 

#B1T14, (SP) 
2$ 

(SP)+ 
RD.RP3 
#BIT14, (SP) 
(SP) 
—- 
ere 


(SP)+, (SP) 
RO 


;ROUTINE TO WRITE A REGISTER 


CALL 
: MOV 
JSR 


DATA,=(SP) 
RO,WRT.RP 


;ADJUST FOR RETURN 
XIT 


; SAVE | ADDRESS IN ‘SESCAPE* 
"MCPE'’ ERROR 

SDATA TRANSFER UNDERWAY? 

;NO=-BRANCH 


; cH 
i YES“-CLEAN | OFF THE STACK AND 

TAKE THE FATAL ERROR EXIT é 
CLEAR 'MCPE'' BY SENDING A ‘'' TO "'TRE"’ 
POSITION BEFORE WRITING 

FORM ADDRESS OF HIGH BYTE 


WRITE THE HIGH BYTE OF RPCS1 
zsADDRESS STORAGE 
sEXCEEDED MAX. RETRYS 


BRANCH IF NO 
FATAL ERROR EXIT 


DATA TO BE LOADED ON THE STACK 
CALL THE ROUTINE TO LOAD(WRITE) THE REG. 


INDEX 
ERRADR 
RETURN 


: INDEX OF THE REGISTER TO BE LOADED 
;ADDRESS TO RETURN TO ON AN ERROR 
ERROR FREE RETURN 


017524 
0175 


013737 
016637 


012374 
000002 


017614 
000150 
017344 


177770 
017613 
012376 


012376 
000010 
010000 


017344 


017700 
017612 


017612 


017614 


MCPEMX ,WRT .R2 
2(SP) ,WRT .WD 


(SP)+, (SP) 
(RO)+,WRT.AD 


1 
oi ae A ae 
RO,RD.RP 


(SP) 

#*C7,(SP) 
(SP)+, WRT .WD+1 
RPADR ,WRT .AD 
ede nein 


0 
RPADR,-(SP) 
#RPCS2, (SP) 


#B1T12,a(SP)+ 
WRT .RS 


RO,RD.RP 





MAX RETRYS ALLOWED 
SAVE THE WORD TO WRITE 
ADJUST THE STACK 
GET INDEX OF REGISTER TO BE WRITTEN 
;BRANCH IF NOT RPCS1 
31S THE COMMAND FOR DATA TRANSFERS? 
YES--DON'T GET THE OLD A16 & wee & PSEL 
NO--= COMBINE A168A17, & PSEL WITH 
THE COMMAND BEFORE SENDING IT TO 
7 THE RH11/RPO4 


FORM THE ADDRESS OF THE DISK REG. 
LOAD THE DESIRED REG. 

zsWORD TO WRITE GOES HERE 

ADDRESS IS FORMED HERE 

;PUT THE ADDRESS ON THE STACK 


:BR_IF DRIVE NON-EXISTENT 
CHECK FOR PARITY ERROR ON WRITE 


C7RJBCO, RPOG/S/6 FMTR MACY11 seaebpat 
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017716 
017720 


000010 
177776 
017344 


020636 


012376 
000010 
000014 


017776 
017776 


000200 
017344 
017776 


000002 
014566 


000046 
017776 
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eer. (SP)+ 

;BRANCH IF *PAR=0"' 
SB CRO) , 1$ PICKUP THE INDEX 
ay. ,RD.RP READ THE REG. 


sREG. INDEX 
sRETURN TO THIS ADDRESS ON ERROR 
RO,ES.SAV 7 SAVE i ADDRESS IN ‘SESCAPE' 
4 :R T THE PARITY ON WRITE ERROR 
D :DECREMENT THE ERROR COUNT 
WRT.R2: .WORD 3 RETRY COUNTER 
B :TRY AGAIN IF NOT FINISHED 
T ;CLEAN OFF THE STACK 
WRT.R3: . oT he soent THE "PARITY ON WRITE’’ ERROR EXIT 


R 
WRT .R4: ‘ADJUST FOR ERROR FREE EXIT 
WRT.R5S: 


ROUTINE TO SAVE THE RH11/RP04/5/6 REGISTERS AS PER DPB+14 


CALL 
: MOV #DPBNUM ,R2 :DPB POINTER TO R2 
: JSR PC, SVRH11 [SAVE THE DRIVES REG'S 


SVRH11: SAVREG ;SAVE RO - R5 
TST R2 ;QUEVE ENTRY FOR THE DRIVE ? 
IF NONE 


RPADR,R4G 

(R2),RPCS2(R4) ;SELECT DRIVE 

14(R2) ,R3 [GET THE ERROR TABLE POINTER 
$ EXIT IF NO ADDRESS 

3$ OUNTER & POINTER 

3$,#RPDB ‘REACHED THE BUFFER REGISTER ? 
$ F NOT 


#B1T07,RPCS2(R4)° :"OR' SET ? 
$ sBR IF 


SET 
oe STORE RPDB AS ZEROES 


; CONT INUE 
2$: RO,RD.RP ;READ THE SELECTED REGISTER 
3$: WOR 0 REGISTER INDEX 
$ ERROR RETURN ADDRESS 
(SP) +, (R3)+ STORE THE REGISTER CONTENTS 
4$: + tant ;REACHED THE END ? 


6 :BR IF YES 
#2,3$ : INCREMENT THE REGISTER INDEX 
BR :CONTINUE READING THE REGISTERS 
5$: JSR PC,CI7 ;PROCESS THE UNCORRECTABLE PARITY ERROR 
6$: ;RESTORE RO - R5 
RTS PC ; RETURN 


{ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A "TRE" 
MOV = #DRVNUM,R1 DRIVE NUMBER TO RI 


; JSR PC,SET.IE :SET 
: RETURN 


SEQ 0078 





on 
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4203 020034 010446 SET.IE: MOV R4,-(SP) 7 SAVE R4 
4204 020036 013704 012376 MOV RPADR ,R4 PICKUP ADDRESS OF RPCS1 
4205 020042 010164 000010 MOV R1,RPCS2(R4) SELECT DRIVE 
4206 020046 011446 MOV (R4) ,=(SP) READ RPCS1 
4207 020050 052716 040000 BIS #BIT14, (SP) SET THE ‘‘TRE'’ BIT OF THE WORD READ 
4208 020054 000316 SWAB (SP) ; ADJUST FOR DATO 
4209 020056 112714 000100 MOVB #B1T06, ( 7 SET 
4210 020062 032764 010000 000010 BIT #BITI2, RPCS2R4)" 31S ‘NED*'=1? 
4211 020070 001002 BNE 1$ ;YES==CLEAR ‘‘TRE'’ 
4212 020072 005726 TST (SP)+ ZCLEAN OFF THE STACK 
4213 020074 000402 BR 2$ 
4214 020076 112664 000001 1$: MOVB (SP)+,1(R4) ;CLEAR ‘'TRE'' 
4215 020102 012604 2$: MOV (SP)+,R4 ;RESTORE R4 
red | 020104 000207 RTS PC ;RETURN TO CALLER 
4218 QUEUE COUNT 
4219 020106 000 T: 0 sDRIVE 0 
4220 020107 000 -BYTE 0 DRIVE 1 
4221 020110 000 -BYTE 0 sORIVE 2 
4222 020111 000 -BYTE QO sORIVE 3 
4223 112 000 BYTE 0 sDRIVE 4 
4224 020113 000 -BYTE 0 sDRIVE 5 
4225 020114 000 -BYTE 0 sDRIVE 6 
res 5 020115 000 -BYTE 0 sDRIVE 7 
asso QUEUE INPUT POINTERS 
4230 020116 020200 QINPT: .WORD QDRVO sDRIVE O 
4231 020120 020220 «WORD QDRV1 sDRIVE 1 
4232 020122 020240 -WORD QDRV2 sDRIVE 2 
4233 020124 020260 -WORD QDRV3 DRIVE 3 
42 020126 0300 «WORD QDRV4 DRIVE 4 
4235 020130 020320 «WORD QDRV5 sDRIVE 5 
4236 020132 020340 «WORD QDRV6 sDRIVE 6 
ret if 020134 020360 -WORD QDRV7 ; er 
reat ;QUEUE OUTPUT POINTERS 
4241 020136 020200 QOUTPT: .WORD QDRVO sDRIVE 0 
4242 020140 020220 «WORD QDRV1 sDRIVE 1 
4243 020142 020240 -WORD QDRV2 sDRIVE 2 
4244 020144 020260 -WORD QDRV3 sDRIVE 3 
4245 020 020300 -WORD QDRV4 sDRIVE 4 
42 020150 020320 -WORD QDRV5S sDRIVE 5 
4247 020152 0340 -WORD QDRV6 sDRIVE 6 
ree 020154 020360 -WORD QDRV7 sDRIVE 7 
4250 020156 020200 QSTART: .WORD QDRVO DRIVE 0 START ADDRESS 
4251 020160 020220 QSTOP: .WORD QDRV1 DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
4252 020162 020240 -WORD QDRV2 STOP DRIVE 1--START DRIVE 2 
4253 020164 020260 -WORD  QDRV3 ;STOP DRIVE 2--START DRIVE 3 
4254 020166 020300 -WORD QDRV4 ;STOP DRIVE 3--START DRIVE 4 
4255 020170 020320 «WORD QDRV5 STOP DRIVE 4--START DRIVE 5 
4256 020172 020340 -WORD QDRV6 ;STOP DRIVE 5--START DRIVE 6 
4257 020174 020360 «WORD QDRV7 ;STOP DRIVE 6--START DRIVE 7 


4258 020176 020400 -WORD QTERM ;STOP DRIVE 7 





On 
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DRIVE REQUEST QUEUES 


-BLKW 
-BLKW 
~-BLKW 
-BLKW 
-BLKW 
-BLKW 
-BLKW 


ed and nd od ed ed ed ed 
oooo°o°o°co 


;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


CALL 
: JSR PC, CLRQUE 


CLRQUE: SAVREG sSAVE RO = R5 
MOV #QCNT,R2 [ZERO THE QUEUE COUNTS 
(R2)+ [DRIVES 0 & 1 
(R2)+ 
(R2)+ 
(R2)+ 
000010 #8. ,R3 {MOVE THE STARTING 
020156 #OSTART,R1 SADDRESS OF THE QUEUE INTO 
: CRI)+, (Re)+ [THE QUEUE INPUT POINTER 
1$ 
000010 #8. ,R3 :MOVE THE STARTING ADDRESS 
020156 #OSTART,R1 [OF THE QUEUE INTO THE 
: CR1)+, (R2)+ SQUEUE OUTPUT POINTER 
23 
PC 
;EMPTY THE QUEUE SPECIFIED BY R1 
CALL 
: MO DRVNUM,R1 sDRIVE NUMBER TO R1 
: PC, EMPTYQ 
020106 EMPTYQ: cL QCNT(R1) :CLEAR NUMBER OF ITEMS IN QUEUE 
020116 020136 QINPT(R1) ,QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
PC 
;ROUTINE TO PUT A REQUEST IN QUEUE 


CALL 


RESTORE RO - RS 


#ORVNUM,R1 DRIVE NUMBER 
MOV R2 ADDRESS OF PARAMETER BLOCK 
JSR :GO PUT REQUEST IN QUEUE 
RETURN1 RETURN HERE IF QUEUE IS FULL 








AM 
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; RETURN2 RETURN HERE IF REQUEST IS IN QUEUE 
122761 000010 DRVQUE : #10, QCNT(R1) 31S QUEUE FULL? 

B :BR IF YES-TAKE RETURN1 
020106 er ; INCREMENT QUEUE COUNT 
020116 R2,@QINPT(R1) ;PUT roe REQUEST IN QUEUE 
900002 020116 #2 ,QINPT(R1) [UPDATE THE QUEUE POINTER 
020116 020160 MP QINPT(R1) QSTOP CHT) Ah gy Fy a aes THE POINTER 
020156 020116 QSTART(R1) ,QINPT(R1) 7 YES--RESET POINTER 


1$: 
(RO)+ ; TAKE RETURN 2 
2$: RO ;RETURN TO USER 


sROUTINE TO GET THE ‘DPB'' ADDRESS OF NEXT REQUEST IN QUEUE 
CALL 






#ORVNUM ,R1 DRIVE NUMBER TO R1 
JSR PC ,GETREQ GO GET THE REQUEST 
RETURN ;R2="DPB’* ADDRESS OF THE REQUEST 
;R2=0 IF NO REQUEST IN QUEUE 


020552 
020554 


: R2 
020106 T QCNT(R1) 71S THERE ANY REQUEST IN QUEUE? 
020560 001404 2$ ;NO---BRANCH 
acheet 006301 1$: 


R1 
020564 020136 MOV BQOUTPT (RI) .R2 :PICKUP ‘DPB'' POINTER FOR THIS DRIVE 
020572 2s: PC :RETURN TO USER 
;ROUTINE TO ‘POP'' THE REQUEST FROM QUEUE 
CALL 
: MOV #DRVNUM,R1 ;DRIVE NUMBER TO R1 
: JSR PC, POPQUE [CALL TO REMOVE REQUEST 
: RETURN “R2=ADDRESS OF DPB REMOVED 
020574 020106 : QCNT(R1) ;DECREMENT QUEUE COUNT 
0600 301 AS R1 
020136 @QOUTPT(R1),R2 ;GET THE ‘DPB’' POINTER 
000002 020136 #2,QOUTPT(R1) UPDATE THE QUEUE POINTER 
020136 020160 QOUTPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER? 
1$ :NO=-BRANCH TO EXIT 
020156 020136 ; QSTART(R1) ,QOUTPT(R1) :YES--RESET THE POINTER 
PC :RETURN TO USER 


ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE* WHEN THE DRIVER 
REPORTS AN ERROR DIRECTLY. 





RO,ES.SAV 
N 3; THE ERROR CALL 
RETURN ;THE RETURN IS PAST THE ERROR CALL 


DWOOODWOD WOW WWWWDWWWVIVIVIVWVIVOVVIWOVVWVIVIVVIOS yy yKyrKrrrrrrrrrrPr 








E 
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012037 02065 ES.SAV: MOV (RO)+,1$ GET THE ERROR CALL 
MOV SESCAPE,-(SP) ;SAVE THE ADDRESS IN ‘SESCAPE’ 
CLR SESCAPE iC Ti RETURN 


1$: -WORD 0 ; THE E L_ IS MOVED HERE 
MOV 


(SP)+,$ESCAPE  ;RESTORE THE ESCAPE ADDRESS 
RTS RO ; RETURN 


FREER AEE REE E EEE EEA EKEEEEKEEEKEEEKKEE KK 


-SBTTL TELETYPE MESSAGES 
044514 UNTOFF: .ASCIZ / OFFLINE/ 
044514 UNTON: .ASCIZ / ONLINE/ 


020124 NOTRP: .ASCIZ @ NOT AN RPO4/5/6a 
030120 


050040 / NOT PRESENT/ 
052116 
040523 : / UNSAFE/ 


/RPO4/ 
/RPOS/ 
/RPO6/ 
/UNIT STATUS/<CR><LF ><LF> 


<CR><LF>/DRIVE: / 


2 ' es 
020122 : /ENTER ADDRESS LIMITS:/<CR><LF> 


/ DRIVE OF FLINE/<CR><LF> 


/ DRIVE NOT PRESENT/<CR><LF> 


050040 
052116 
053111 i / DRIVE NOT AVAILABLE/<CR><LF> 


MNRPO4: . @ DRIVE NOT AN RPO4/5/6a<CR><LF > 


sov9vvv0rv09v090"9000"9N"0"V99N 9999 


020116 050122 








, Ff 
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021210 ee? 57 005015 
goats MUSDR: .ASCIZ / DRIVE UNSAFE/<CR><LF> 


MSELD: .ASCIZ / SELECTED/ 
MMODE: .ASCIZ <CR><LF>/PROGRAM MODE (C OR F): / 


/ FORMAT & VERIFY/ 


/CHECK ONLY/ 
/FORMAT & VERIFY/ 


<CR><LF><LF>/OPERATE IN 22 SECTOR MODE (Y OR N) ? / 


MSEC22: . /OPERATION WILL BE IN 22 SECTOR (16 BIT) MODE/<CR><LF> 


MSEC20: . /OPERATION WILL BE IN 20 SECTOR (18 BIT) MODE/<CR><LF> 


BADENT: . /INVALID ENTRY/<CR><LF> 


MADRER: . /ENDING DSK ADRS MUST BE EQUAL TO OR GREATER/<CR><LF> 


124 0 020116 . /THAN STARTING ADRS/<CR><LF> 
021670 052123 051101 044524 


o 
D 
D 
i 
p 
D 
D 
D 
D 
D 
D 
D’ 
D 
D 
D 
D 
D 
D 
D 
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021676 2 > 051104 
052103 MSELP: .ASCII /SELECT DATA PATTERN/<CR><LF> 
051105 


020051 -ASCII / (0) ZERO'S/<CR><LF> 
051447 


-ASCII / (1) ONE'S/<CR><LF> 
-ASCIZ / (2) WORST CASE: / 
035105 
051522 : .ASCIZ /WORST CASE/ 
2523 000 
eASCIZ <CR><LF><LF>/STARTING FORMAT ON DRIVE / 


eASCIZ <CR><LF><LF>/STARTING CHECK ON DRIVE / 


<CR><LF><LF>/FORMAT COMPLETE, / 
<CR><LF><LF>/CHECK COMPLETE, / 


/TOTAL ERRORS DETECTED: / 


ADDRIS: . /PRESENT ADDRESS IS: / 
2522 
035123 
DDR ROSSI IDI IO Oo iiott iti 


-SBTTL ERROR MESSAGES 


SLR EEE EERE EEE EEE EERE EERE REE EEEKERERREEEK 


022242 030461 044440 EM1: -ASCIZ /RH11 INTERRUPT OCCURRED (RPAS=0)/ 


0222 
022272 051050 


H 7 
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022300 000 
4540 022303 125 042516 Ooo le EM2: -ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
543 0 4 511 
4544 022332 eat? 051122 042105 


4546 022341 115 051501 041123 EM3: -ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
022346 0040 


4552 OSSane 115 gait 041123 EM4: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 
56 000051 
4557 022434 042101 051104 051505 EMS: -ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 


0224 000124 
4562 022470 044122 030461 042040 EM6: -ASCIZ /RH11 DIDN'T RESPOND TO ADDRESSING/ 


7524 040440 
022520 042104 passes 051523 
4568 022532 051104 053111 020105 EM10: .ASCIZ /DRIVE OFFLINE/ 
4569 022540 043117 046106 047111 
022546 090105 
4571 022550 042520 051522 051511 EM11: .ASCIZ /PERSISTENT DRIVE UNSAFE ERROR/ 


022600 
2m 022606 ogg: 047503 AES EM12:  .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 


022644 000 
4582 022651 123 043117 053524 EM13: .ASCIZ /SOFTWARE TIMEOUT/ 


584 2664 : 000124 
4585 022672 051104 053111 020105 EM14: .ASCIZ /DRIVE UNSAFE ERROR/ 
86 2700 0523 042506 
4587 022706 ea 051122 051117 
4589 022715 103 ot hh 051124 €M15: .ASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE@ 


Mb 
Mt 
M) 
Mp 
Mn 
Mn 
mM 
Mm 
mM 
mM 
Mm 
MF 
MF 


3516 
4594 022752 053440 044522 042524 
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Oot is3 EM16: .ASCIZ @CONTROLLER/DRIVE ERROR DURING WRITE CHECKa 


EM17:  .ASCIZ @RETRIES NOT SUCESSFUL = SECTOR NOT ACCEPTABLE@ 


-ASCIZ @DATA ERROR DURING WRITE CHECK 


@CONTROLLER/DRIVE ERROR VERIFYING HEADERS@ 


@HEADER COMPARE ERROR VERIFYING HEADERS@ 


@CYLINDER FIELD IN HEADER IS NOT CORRECT@ 


Q@WRITE CHECK ERROR@ 


2510 
051122 
051101 nr @HARDWARE ERROR DURING WRITE CHECKa@ 
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3 FURR EERE REE EERE EEE EEE EERE ERK REERERRERE EEK 


050122 051501 000 DH: -ASCIZ /RPAS/ 
104 4522 DH2: -ASCIZ /DRIVE RPDS1 RPER1 RPER2 RPER3S RPAS/ 


020105 : ° /DRIVE REG ADR DATA/ 
020107 
042040 


020105 : ° /DRIVE REG ADR GOOD BAD/ 


-ASCIZ /RH ADDRESS/ 
-ASCIZ /DORIVE ERR PC RPCS1 RPCS2 RPDS1 RPER1 RPER2 RPER3/ 


050122 


041505 020061 : .ASCIZ /RPEC1 RPEC2 RPWC 
050122 
020040 


-ASCIZ RPMR 


eASCIZ /DRIVE ERR PC CYLINDER TRACK SECTOR/ 


6131 
020122 
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051124 020113 
004 052103 


DH20: .ASCIZ /DRIVE ERR PC CYLINDER TRACK SECTOR/ 


-ASCIZ /RPCS1 RPCS2 RPDS1 RPER1 RPER2 RPER3S RPEC1 RPEC2/ 


-ASCIZ RPDA RPAS RPLA RPDB RPMR 


-ASCIZ RPCA RPCC/ 


-ASCII EXPT'D/<CR><LF> 


-ASCIZ /DRIVE ERR PC CYLNDR ACTUAL HEADER/ 


ASCII MEMORY DISK/<CR><LF> 


024566 020040 020040 
024574 054522 
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-ASCIZ /ORIVE ERR PC CYLNDR TRACK SECTOR DATA DATA/ 


ATTN 
DDRIVE ,RPERRS ,RPERRS+2 ,RPERRS+4 ,RPERRS+6,ATIN 
: DORIVE ,RD.ADR,RD.WRD 
017612 : ° DDRIVE ,WRT.AD ,WRT.WD,RD.WRD 
SRPADR 
001306 DF “a DRIVE , SERRPC ,RP.REG, RP.REG+10,RP.REG+12,RP.REG+14 ,RP.REG+40,RP.REG+42 


Oot eae RP .REG+44 ,RP.REG+46,RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG+16,RP.REG+20 


oat te! RP.REG+22 ,RP.REG+24 ,RP.REG+26,RP.REG+30,RP.REG+32,RP.REG+34 ,RP.REG+36 


001270 : DRIVE ,SERRPC .DS.CYL,DS.TRK,SAVSEC 
001270 : DRIVE ,SERRPC,DS.CYL.DS.TRK,SAVSEC 


bbe 34 . RP.REG,RP.REG+10,RP.REG+12,RP.REG+14,RP.REG+40,RP.REG+42,RP.REG+44 ,RP.RE 


bE ah] . RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG+16,RP.REG+20,RP.REG+22,RP.REG+24 ,RP.RE 


001342 RP.REG+30,RP.REG+32 ,RP.REG+34 ,RP.REG+36 


025324 : DRIVE ,SERRPC ,BUFP,,RBUF ,RBUF +2, RBUF +4 , RBUF +6 
025320 


tion eo is DRIVE ,SERRPC,DS.CYL.DS.TRK,SAVSEC .SGDDAT ,RP.REG+22 


dts . RP.REG,RP.REG+10,RP.REG+12,RP.REG+14,RP.REG+40,RP.REG+42,RP.REG+44 ,RP.RE 


Cotes RP.REG+2,RP.REG+4 ,RP.REG+6,RP.REG+16,RP.REG+20,RP.REG+22,RP.REG+24 ,RP.RE 


001342 RP.REG+30,RP.REG+32,RP.REG+34 ,RP.REG+36 


025210 : 1 
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4819 025212 001 000 .BYTE 1,0 
4820 025214 000001 DF2: “WORD 1 
1 025216 006 000 “BYTE 6,0 

4822 025220 00001 DF3: “WORD 1 

025222 003 000 “BYTE 3,0 
4824 025224 000001 DF4: “WORD 7 
4825 025226 004 000 “BYTE 4,0 

025230 000003 DF10:  .WORD 3 
4827 025232 010 000 “BYTE 8.,0 
4828 025234 023704 “WORD DHIOA 

025236 007 000 “BYTE 7,0 

025240 023771 “WORD 0H10B 
4831 025242 007 000 “BYTE 7,0 

025244 000001 DF17: .WORD 1 
4833 025246 005 034 “BYTE 5,34 

025250 000004 DF20:  :WORD 4 
4835 025252 034 “BYTE 5,34 
4836 025254 024174 “WORD DH20A 
4837 025256 000 “BYTE 8.,0 

025260 024272 “WORD DH20B 
4839 025262 000 “BYTE 8.,0 
4840 025264 024367 “wORD DH20C 

1 025266 000 “BYTE 4,0 
4842 025270 000001 DF23:  :WORD 
4843 025272 007 000 “BYTE 7,0 
4844 025274 000004 DF24: [WORD 4 
4845 025276 034 “BYTE 
5300 024174 “WORD  DH20A 

4847 025302 10 000 “BYTE 8. 
4848 025304 024272 “WORD DH20B 
4849 025306 010 000 “BYTE 8.,0 
4850 025310 024367 “WORD DH20C 
4891 025312 004 000 “BYTE 4,0 
4853 J FARRER EERE EAE EEE EERE ERE KEE EERE EERE REKKEKEKKEEKEERE 
pr 34 ;BUFFER STARTS HERE 
4857 FS FARRAR EAA REE AEE EEE EAE 
4858 
4859 025314 000000 000000 000000 RBUF: .WORD 0,1,.0,0 :BUFFER FOR HEADER CHECK 
4860 025322 000000 
4862 025324 BUFP: :FORMAT AND CHECK BUFFER STARTS HERE 


4864 025324 005015 055012 026532 TITLE: .ASCII <CR><LF><LF>/22-CZRJB-C/<CR><LF> 

4865 025332 055103 045122 026502 

4866 025340 006503 012 

4867 025343 122 030120 027464 eASCIZ @RPO4/5/6 FORMATTER PROGRAM@<CR><LF ><LF> 


4868 5 020066 04 

4869 025356 046522 052101 042524 

4870 025364 020122 051120 043517 

4871 025372 040522 006515 005012 
025400 000 


4873 025401 015 052012 020117 LOADRV: .ASCI. <CR><LF>/TO "FORMAT’ OR 'CHECK' DRIVE 0, REPLACE THE ‘XXDP'/<CR><LF> 
4874 025406 043047 051117 040515 
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023524 047440 020122 
0414 5503 


lala) 
NM 


podtad saeht «ASCII /PACK ON DRIVE O WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40,/<CR><LF> 


042116 051040 -ASCIZ /AND RESTART THE PROGRAM/<CR><LF> 


-SBTTL_ BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 

;OF THE RH11 IS SETUP FOR THE PROPER ADORESS. 

ae READ THE ADDRESS FROM THE TTY IF 


NOTE: THIS ROUTINE DESTROYS RO-R4 
; CALL 


PLPYNMYEMERYECCECCCEe CSSSeCesseecececeeeceessseSSSsS 


; JSR PC ,BUSADR 

: RETURN 
177700 HIAD: .WORD 177700 
000776 HIVEC: .WORD 776 
000000 LIMIT: .WORD 
005737 001302 BUSADR: TST CHGADR : INPUT FROM TTY REQUESTED? 
001460 BEQ 7$ :NO--BR 
005037 001302 CLR CHGADR ‘VESAnCLEAR THE REQUEST FLAG 
012700 001172 1$: MOV #SRPADR RO :FIRST ADDRESS 
104401 026046 TYPE -MRPCS1 :"'RPCS1= 
012046 MOV (RO)+,=(SP) :PRESENT RPCS1 ADDRESS 
104402 TYPOC :TYPE IT 
104401 021035 TYPE »LINSP 32 SPACES $i 
104411 RDLIN [GET THE ENTRY $I 
012601 MOV (SP)+,R1 sADDRESS OF ASCII TEXT $i 
013737 025620 025624 MOV HIAD, LIMIT zTHIS IS THE ADDRSS HIGH LIMIT $i 
004537 026070 JSR R5,CK.NUM CHECK THE NUMBE $( 
025716 3$ ; CARRIAGE RETURN ONLY ENTERED SE 
025774 7$ PERIOD ONLY ENTERED $E 
025640 1$ [ILLEGAL INPUT $t 
025712 2s [TERMINATED WITH A CARRIAGE RETURN $i 
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; TERMINATED WITH A ‘',"* 
s TERMINATED WITH A “'."' 
177776 : MOV R2, ae : SAVE NEW RPCS1 
: ,MRHVE 7‘ RHVEC=" 
SSRPVEC, RO SFIRST VECTOR 
(RO)+, -(SP) : PRESENT RH11 VECTOR ADDRESS ON THE STACK 


021035 ,LINSP : 






oe. eee ee 


32 SPA re 
READ THE ENTRY 
V (SP)+,R1 ASCII TEXT ADDRESS 
025622 025624 HIVEC,LIMIT ;VECTOR LIMIT 
026070 R5,CK.NUM ; CHECK THE NUMBER 
;CARRIAGE RETURN aod ENTERED 
PERIOD ONLY ENTERE 


; ILLEGAL_INPUT 
; TERMINATED ot Be A CARRIAGE RETURN 
s TERMINATED WITH A ' 
TERMINATED WITH A ‘'."' 
177776 : R2,~-2(RO) 7SAVE INPUT 
000004 : SAVE THE “ore VECTOR 


026034 
153160 
000004 OR VECTOR 

001172 #SRPADR RO SFIRST ADDRESS OF NEW PARAMETERS 
012376 #RPADR,R1 sFIRST ADDRESS OF WHERE TO PUT THEM 


(RO)+, (R1)+ ;BUS ADDRESS 
(RO) +, (R1)+ eee ADDRESS 


PC ; RETURN 

000004 3 MO R1,ERRVEC RESTORE ERROR VECTOR 
(SP)+,(SP)+ ;CLEAN OFF THE STACK 
6 ;REPORT THE ERROR 
1$ ASK FOR BUS ADDRESS 


050122 051503 020061 MRPCS1: .ASCIZ @RPCS1 
020075 000 

122 053110 041505 MRHVEC: .ASCIZ @RHVEC 
036440 000040 


-SBTTL CK.NUM = CHECK NUMBER (OCTAL) 
= ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
we AN OCTAL NUMBER IN R2 


#ADR,R1 ADDRESS OF ASCIZ STRING 
#NUM,R2 MAX ae OF I te 


SSS Se eee ee eee ee ee eS 


3‘ PE Y ENTERED =~ R2 = 0 
S ILLEGAL CHARACTER IN THE INPUT STRING 
7 CR" ENTERED =~ R2 = NUMBER 
"‘COMMA'' =~ R2 = NUMBER 
! "PERIOD" -- R2 = NUMBER 


CK.NUM: P s SAVE R4& 
MO SAVE R3 


SAVE R2 
;RETURN POINTER 
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4987 026100 005003 CLR R3 ;START NUMBER AT ZERO 1 

4988 026102 005002 CLR Re STORE RESULT 4 

4989 026104 004537 006556 JSR R5,CK.CHR CHECK ONE CHARACTER 1 

4990 026110 026210 6$ ; ILLEGAL CHARACTER 4 

4991 026112 026214 8$ ; : CARR IAGE RETURN | 

4992 026114 026210 6$ 1 

4993 026116 026212 7$ — $ 

4994 026120 026124 1$ DIGIT 0-7 $ 

4995 026122 026210 6$ DIGIT 8-9 $ 

4996 026124 062705 000004 1$: ADD #4 ,R5 INCREMENT RETURN PAST "‘CR'' AND ‘PERIOD'’ ONLY RETURNS $ 

4997 026130 006303 2$: ASL R3 ;FOR THE OCTAL NUMBER IN R3 $ 

4998 026132 103426 BCS 6$ ;DON'T LET IT GET TO BIG $ 

4999 026134 3 ASL R3 $ 

5000 026136 103424 BCS 6$ $ 

5001 026140 ASL R3 

5002 026142 103422 BCS 4 

5003 026144 060203 ADD R2,R3 $ 

5004 026146 004537 006556 JSR RS5,CK.CHR CHECK ONE CHARACTER $ 

5005 026152 026214 8$ ; ILLEGAL CHARACTER 1 

5006 026154 026176 5$ CARRIAGE RETURN $ 

5007 026156 026174 4$ J s.. b| 

5008 026160 026166 3$ ... 4 

5009 026162 026130 2s DIGIT 0-7 1 

5010 026164 026214 8$ :DIGIT 8-9 1 

5011 026166 105711 3$: TSTB (R1) i, A ‘'CR'' FOLLOW THE ‘PERIOD’ i 

5012 026170 001011 BNE 8$ R IF NOT 1 

5013 026172 005724 TST (R4)+ INCREMENT THE RETURN 1 

5014 026174 005724 4$: TST (R4)+ ; INCREMENT THE RETURN INDEX i 

5015 026176 005724 5$: TST (R4)+ ; INCREMENT THE RETURN INDEX { 

5016 026200 023703 025624 CMP LIMIT,R3 ; INPUT VALUE TOO LARGE ? . 

5017 026204 101003 BHI 8$ iBR IF IT IS 

5018 026206 000401 BR 7$ IF NOT 

5019 026210 005725 6$: TST (R5)+ ; INCREMENT THE RETURN ADDRESS 

026212 005725 7$: TST (R5)+ Z INCREMENT THE RETURN ADDRESS 

5021 026214 060405 8$: ADD R4.R5 7SETUP FOR PROPER RETURN 

5022 026216 010302 MOV R3,R2 ;LOAD ENTERED VALUE 

5023 026220 005726 TST (SP)+ ;CLEAN OFF _THE STACK 

5024 026222 012603 MOV (SP)+,R3 sRESTORE R3 

5025 026224 012604 MOV (SP)+,R4 RESTORE R4 

5026 026226 011505 MOV (R5),R5 :GET 4 TURN ADDRESS 

5027 026230 000205 RTS R5 RETURN 

5028 

5029 

5030 


5031 000001 - END 
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ABS = 000. 8164 ( 
ACK = 000123 8864 ¢ 
ACL = 000040 8504 8594 C 
ACTDRV 012314 30684 3347* 3398 3711*% 3720* 3950 C 
ACTSTR 012315 3074# 3952* 3967* E 
ACU = 100000 8054 E 
ADDRIS 022215 1987 45234 E 
ADRTBL 001500 10494 1687 E 
= 001 7228 E 
ATA = 100000 7094 
ATABIT 012364 31404 3313 3410 3515 3874 $893 3901 3918 4026 
ATTN 001276 979# 2185* 4775 4776 E 
ATO = 000001 7428 ¢ 
ATi = 000002 7434 ¢ 
AT2 = 000004 7444 l 
AT3. = 000010 7454 ' 
AT = 000020 7464 id 
ATS = 000040 7478 N 
AT6 = 000100 7484 F 
AT7 = 000200 7494 F 
A116 == 000400 6404 F 
Al = 001000 6414 F 
BADENT 021566 2029 44704 $ 
BAI = 000010 6584 s 
BEGCYL 001224 9554 1030 1429% 1484% 1493 1540 1547 1730 1734 1867 1906 s 
BEGIN 002100 517 12674 ‘ 
BEGIN1 002110 514 12694 1305 { 
BEGIN2 002114 1268 12704 { 
BEGTRK 001230 9574 1031 1428* 1483* 1496 1543 1549 1866 1869 1907 s 
BITO = 000001 6144 s 
BITOO = 1 6044 614 1367 1480 
BITO1 = 000002 6034 613 1370 1480 1852 3390 3637 
BITO2 = 6024 612 } 
BITO3 = 000010 6014 611 3833 4148 1 
BIT04 = 000020 610 1833 3868 1 
BITOS = 0 5994 609 3230 3657 4 1 
BIT06 = 000100 5984 608 3322 3381 3455 3746 4209 1 
BITO7 = 000200 5974 607 3322 3589 3732 3833 3848 3868 3897 4181 1 
BITO8 = 000400 5964 606 1830 3322 4013 1 
BITO9 = 001000 5954 60 1830 2212 8 1 
T1 = 000002 6134 1716 1821 1 
BIT10 = 002000 5944 1827 1852 2 3639 { 
BIT11 = 004000 5934 1827 3277 3414 3432 3608 3919 { 
BIT12 = 010000 5924 1824 1852 3272 3304 3322 3392 3426 3604 3623 3635 3648 3858 { 
3860 4086 4143 4210 { 
BIT13 = 020000 5914 1821 1852 2203 3375 38 4089 { 
BIT14 = 040000 5904 1821 1852 3387 3423 3793 3937 4053 4098 4102 4207 : 
BIT15 = 100000 5894 3375 3387 3390 3392 3423 3426 3608 3637 3639 3746 3833 3848 ' 
3858 3868 3937 3998 4013 4053 4060 
BIT2 = 6124 1821 4060 
BIT3 = 000010 6114 
BIT4 = 000020 6104 
BITS = 0 6094 
BIT6 = 000100 6084 3416 
BIT7 = 000200 6074 1670 1677 
BIT8 = 000400 6064 
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BIT9 = 001000 

BPTVEC= 000014 

BUF P 025324 1054 
063 1067 


025626 
0. 


AAAQAAO 
NOUSW— 


4416 4420 4424 
4492 4500 4505 


1238 48264 


ad ed ed ad od ed ed ed eh ed 
SSNS VSS 
ANOWNUS ANDO 


1236 46744 


oa 
Go 
Ww 
7 


0237 
023771 








F 
CZRJBCO, RPO4/5/6 FMTR MACY11 30A(1052) 20-MAR-78 10:25 PAGE 99 
CZRJBC.P11 


005340 
012270 
000400 


012300 
001214 
004000 


012240 
00011 


0 
012250 


012260 


20-MAR-78 10:22 CROSS REFERENCE TABLE -- USER SYMBOLS 
024056 


3927 | 


4041 
4782 


3725* 


3235* 
3791 


3283* 


000200 
177570 


001270 


0251 
025122 


3929 


4056* 
4791 


3798 


3267* 
3804 


3288* 


47824 


3726* 
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024714 
47814 


EYes 


1271* 1597* 1662 1665* 1672* 1679* 1682* 1706* 
3659 3747 3870 3939 4061 43024 
1281* 1304* 


Oo 
cite Tell 


86 
93 
00 
0 
1 
2 
2 
2 
3 
4 
4 
5 
3 


7 
4 
3 
1 
8 
5 
2 
9 
6 
0 
7 
4 
1 


FER 000020 
FMTDPB 001356 


F5 = 000040 
GETREG= 000141 
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GETREQ 020552 3632 3787 3823 3884 3936 3997 4012 43384 
GNS 2 2947 2948 2949 2950 2952 2954 2957 2958 


1751 


4424 4429 4434 
4505 4510 4514 


1402* 1525 1601 1657 1691 1777 
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49664 
49644 
45054 


44624 
44544 


44854 
45004 
4447# 


44014 


44298 
1419* 1688 1863 


1469 1473 1475 1806 


1499 
1519 


3742 3902 3942 





CZRJBC.P11 
PATA 001242 


CZRJBCO, RPO4/5/6 FMTR MACY11 30A(1052) 
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PGE = 002000 
PGM = 001000 
PIP = 020000 
PIRQ = 177772 
PIRQVE= 000240 
PLU = 02 
POPQUE 020574 
PRO = 

PR1 = 00004 
PR2 = 000100 
PRS = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000 
PR7 = 000340 
PS = 177776 
PSEL = 002000 
PSU = 1 
PSW == 177776 
PWRVEC= 000024 
QCNT 020106 
QDRVO § 0202 
QDRV1 020220 
QDRV2 020240 
QDRVS =: 020 
QDRV4 020 
QDRVS 020320 
QDRV6 020 
QDRV7 0 
QINPT 020116 
QOUTPT 020 
QSTART 020156 
QsTOP 020 
QTERM = 0 

RAW == 

RBUF 025314 
RDCHR = 10441 
RDDAT = 000171 
RDHD = 00017 
ROLIN = 104411 
RDY = 0002 


RD.R 17522 

017372 
READIN= 000121 
RECAL = 000107 
RELSE = 000113 


9628 
34 


1561* 
1562* 
1431 


20-MAR-78 
1565* 1569 
1566* 1570* 
1520* 1563 
3588 3896 
1304 

962 

1339* 1464* 
4302* 4317 
4250 42624 
4251 42634 
4252 42644 
4253 42654 
4254 42 
4255 4267# 
4256 2684 
4257 42694 
4321* 4322+ 

342 4355 
4289 4325 
4357 
4803 48594 
1441 1504 
4081# 4778 
314 536 
4076# 4131 
41114 

4778 4779 
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1573 

1574 

1567 

43534 

3210 3211* 
4319* 4339 

4323 4325* 
4356* 4357 

4359 

2018 29564 
3560 3574 

4145 © 4151 


3240* 


4353* 


4359* 


4923 


3678 
4185 


3248* 3345 3346* 


4939 


3692 3734 3757 


3399* 


3825 


3409 


3835 


SEQ 0100 


3458* 


3850 
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104413 
000010 
001250 
000004 


000101 
012376 


K 
20-MAR-78 10:25 PAGE 104 
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3249 
1623* 


3874* 
3531 
3302 
3842 
3230* 
3733* 
3509 


3826 


3796 
31814 


3393 
1626* 


3755# 


3459 
1711* 


3917* 


3986 


3906* 
3906 


3575 


3518* 
4085 


4782 4785 


SEQ 0101 


4788 
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015552 


3880 38824 3913 


4203# 


1700* 1705* 1897* 
1977 


40634 


3839 3857 3900 3938 3999 4062 
1337 1670 1677 1716 1804 1847 


see 


838 
es 


Ss 
ae 


S38 
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« 


TOF = 000040 
TIMER 012342 
TITLE 025324 

C = 000060 


104404 
S = 104403 
ULDFLG 012316 
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3641* 3728+  3821* 


3646*  3655* 
1549* 1551* 


3865* 


3915* 


3731* 
1556* 


3923* 


3956 


3958* 


SEQ 0103 


4016* 
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US1 
US2 
US4 


VUF 
30 


1424* 1571 
1675 


3487 3491 3499 3508 3512 3523 3530 3540 3554 
3809 3841 3878 41244 


41604 


4779 


2755 
23574 


1536 1785 1998 2206 2220 2237 2242 2252 2269 
2735 2755 
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4793 4803 4806 


1713* 1744* 1754* 1850* 
4372 4373*  4375* 


2411 
1518 


010334 
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STKQEN= 010333 


= 026232 
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2579+ 
2691* 
2694 

2563* 


2580* 
2692 


2565 


2581 
2694* 


2571* 


29518 
27544 


2653 


2583* 


2593 


2952 


2515 
42694 


2609* 2619 2631* 


29534 2954 29554 29564 29574 


9054 941 1277 1604 1631 
5164 2754H 2755 2762 28674 
4900# 


2 
4270 46494  4774# 


SEQ 0106 


1736 
42624 
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1443 1506 2126 2140 4989 5004 
2020 
4942 


2950 2952 
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- ABS. 026232 


ERRORS DETECTED: 0 


CZRJBC .BIN, CZRJBC .LST/CRF /SOL/NL : TOC=CZRJBC . SML ,RP0456.011,CZRJBC.P11 
RUN-TIME: 18 24 1 SECONDS 


RUN-TIME RATIO: 198/44=4.4 
CORE USED: 46K (91 PAGES) 





